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KIT PARA DRIVE DDX 
Composto de gabinete metá- 
lico, fonte dealimentação, interfa- 
ce DDX, cabo para dois tdrives, ma- 
nual e sistema operacional (DOS). 







A. DDX MODEM PARA MICROS MSX 
Transmite e recebe em 1200/75, 300/300, 
1200/1200, BELL e COITT. Discagem automática 
pelo teclado do micromputador. Monitoração 
de linha, rediscagem automática no caso de 
ocupado, atendimento automático. Contém 
software embutido para terminal genérico, ví- 
deo Lisos (MSX 1 € MSX 2). Homologado pela 
TELESP. 


CONHEÇA OS 
MAIS NTES 
LANÇAMENTOS 


KIT DOX PLUS 11 

Este Kit faz com que O usuário es- 
colha entre o modo PLUS em Fa- 
zendo seu micro ficar compatível 
comtodos osjogas e utilitários do 
mercado. No modo Plus, o micro 
possui mais 64K de Ram, totalizan- 
do 128k. 





KIT DDX MSX 2.0 
O Kit M5X 2 faz com que o micro, 
entre outras vantagens, tenha 





maior resolução, maior velocidade 
de.manipulação de gráficos, um 
relógio real com bateria para 
quando o micro estiver destigado, 
80 colunas programáveis, 128K de 
Ram de vídeo, 256 cores simulta- 
neas, etc. 


EXPANSOR DE SLOTS DDX 
Este aparelho expande cada "SLOT do micro 
MSX em 4 "SLOTS" independentes, possibili- 
tando ao usuário utilizar até 8 "SLOTS" simul- 
taneamente, a0 invés de 2 originalmente. 


MEGA RAM DISK 
Esta placa é uma expansão de memória com 
O sistema operacional DDX DOS residente e é 
apresentada em 3 modelos diferentes: DDX 
256, 512 e 768 Kbytes. Portanto, ela funciona 
como se fosse uma drive normal para o 
computador. 
Para quem gosta somente de jogos, é reco- 
mendável a Mega Game DDX 256 Kbytes sem 
O DDX DOS residente. 
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REVENDEDORES DDX 


SÃO PAULO-SP: Audicomp Tel. 
(0112673581 * Tall Comunicação Tel. 


(011)276-7465 * DAC. Informática Tel. 
(011)871-0277 
Benny Micros Tel: 570-1555 « Brindata 
Tel.: 864-1888 * Bruno Blois Tel. 
223-7011 * Casado MSX Tel: 533-2351 
* Cinótica Tel.: 36-6961 * Datarecord 
Tel: 4579932 « Data Brind's Tel 
2879909 e Datatec Tel.: 571:7083 * Ec- 
tron Tel.: 290-7266 * Filcril Tel. 
220-3833 * Farahs Informática Tel. 
36-6707 * Game of Time Tel.: 581-2739 
* Nasa Tel: 914-2266 * MG Informáti- 
ca Tel :262-1876 « MSX Soft Sampa Tel. 
579-8050 e MSX Informática Tel.: 
872.0730 * Misc Tel: 34-8391 * Redi- 
Universoft Tel: 825 5240 - Paulizoft Te 
371814 « Pley Tech Tel: 2201733 
SANTO ANDRÉ-SP: Shop Áudio e Vídeo 
Ê Tel; 444.6055 
TAUBATÉ-SP: J. R Som Tel. 
o (0122)33-1855 
SÃO JOSÉ DOS CAMPOS-SP: lgres Infor. 
mática Tel.: (0123)22-9057 
ARAÇATUBA-SP: Computec Tel, 
(0186)23-3647 
SANTOS-SP: Drawline Tel. 
(0132)34-9813 * Datamarket Tel: 
(0132)35-7500 
JUNDIAÍ-SP: IT! Informática Tel. 
y (011436-3322 
RIBEIRÃO PRETO-SP: ALS Tel: 
(016)636-5379 


RIO DE JANEIRO-RJ: MSX SOFT Informá- 
tica Tel: (021)284-6791 

VOLTA REDONDA-RJ: Ótica Sider Tel. 
(0243)42-1833 
CURITIBA-PR: MSX SOFT Sul Informática 
Tel.: (041)233.0046 

LONDRINA-PR: Quinta Geração Informá. 
tica Tel.: (0432)24-8094 

Lema Tel.: 


BELO HORIZONTE- 
(031)212-6855 o Argus Tel: 
(031/227.5688 * Raja Informática Tel. 
(031)344-4877 





BRASÍLIA-DF: BCS Brasília Tel.: 
(061)274-7571 * CRP Informática Tel: 
(061)248-1165 * Ditz Informática Tel.: 
(061)243-4040 

SALVADOR-BA: Micro & Periféricos Tel.: 
(071)359-5599 

RECIFE-PE: Quiminal Tel: (081)2224224 
* Plavenor Tel. (081)326-3337 
FORTALEZA-CE: Top Data Informática Tel: 
(085)239-2798 * Sun Foto Tel.: 
(085)244-2308 

PORTO ALEGRE-RS: Fonte Computado- 
res Tel: (0512)25-2286 * Digimer Tel.: 
(0512)26-4395 

PELOTAS-RS: S. J. Informática Tel.: 
(0532)25-9906 

SANTA MARIA-RS: Micro Sul Tel.: 
(055)221-1069 

FLORIANÓPOLIS-SC: Prática Tel: 
(0482)22.0819 « Megabyte Informática 
Tel. (0482)23-5010 


Tel: 


Datasoft 
(082)223-4984 
Tel. 


Compubel 
(091)223-6319 


TUBARÃO-SC; Display Com. e Repres. 
Tel.:(0486)22-1022 
MACEIÓ-AL: 
BELÉM-PA: 
CAMPINA GRANDE-PB: Magno Computa- 
dores Tel.: (0833216472 
VITÓRIA-ES: MSX Scorpions Tel, 
(0271239-2337 * Idéias Informática Tel: 


(027)225-6177 
GOIÂNIA-GO: Porto Soft Tel.: 
(062)223-0111 























A DIGITAL DESIGN é uma empresa de capital genuina- 
mente nacional, voltada à industrialização e comercia- 


lização de periféricos para a linha MSX. 


Atuando no mercado há mais de três anos, o que prova 
a seriedade com que a empresa encara o mercado de 
MSX, a DIGITAL DESIGN desenvolveu, e vem desenvol- 
vendo, vários periféricos para o micro-computador pes- 
soal mais vendido do Brasil. 


Entre os periféricos desenvolvidos estão: o KIT DE DRI- 
VE DDX, o CARTÃO 80 COLUNAS DDX, a MEGA RAM 
DISK 256 e o KIT DDX 2.0, uma placa que transforma 
oMSX 10e 1.1 em MSX 20 com 512 cores, relógio, 128 


Kbytes de VRAM e 80 colunas embutido. 
LANÇAMENTOS 
O EXPANSOR DE SLOTS DDX e as MEGA RAM DISK 


512e 768 Kbytes estão disponíveis nas nossas 














revendas 


DDX: ORIGINAL: 
VEL ATÉ PARA SER COPIADO... EXPERIMENTE! AFINAL, 


TECNOLOGIA DE PONTA DEDICADA A SEU MSX: IRRESISTÍ- 
TRATA-SE DE UM PRODUTO COM ESTA MARCA DE 






QUALIDADE: 





Digital! 


Digital Design Eletrônica Ltda. 






































Nemesis: Top-Cad - MSX Computer Aided Design, ou Desenho Au- 
xiliado por Computador. Mais uma novidade em software profissio- 
nal que a Nemesis desenvolveu especialmente para o seu MSX! 


Jogos 
NOVIDADES: Temos os últimos lançamentos. 


PACOTES: Na compra de 50, 100 e 200 jogos, uma super oferta. 
Consulte-nos ou peça catálogo grátis. 


PERIFÉRICOS: Linha completa de periféricos para MSX e PC. 


PROMOÇÃO: Na compra de um drive, você ganha um brinde espe- 
cial, Preços abaixo do mercado. 


Transforme seu MSX 1 em MSX 2.0 pelo melhor preço (damos 
garantia). 


SUPRIMENTOS: Capas - Porta Disquetes - Disquetes - Livros Espe- 
cíficos para MSX (Preços promocionais com 15% de desconto) - Fi- 
tas para Impressoras. 


SOFTWARE: Educativos - Aplicativos - Utilitários - Desenvolvemos 
também sistemas específicos para empresas. 


KIT PARA DRIVE DDX: Composto de gabinete, metálico com fonte 
de alimentação, interface DDX com cabo de ligação para dois dri- 
ves, sistema operacional (DOS) e manual. 


MEGARAM DISK 256: Placa de expansão de memória de 256 
Kbytes, com o sistema operacional DDX DOS residente. 





Conheça a sofisticação e magia do Sistema Gráfico Aquarela. 

— Recursos completos para edição de telas gráficas. 

— Figuras prontas para você usar e ilustrar suas telas. 

— Caracteres em Out-Line, bold, sombra no tamanho 8x8 ou 16x16, 





TEMOS IMPRESSORAS 
ELGIN LADY 80 
A PEQUENA 

NOTÁVEL 














Já temos a 
disposição os novos 
lançamentos da DDX: 
Expansor de Slots DDX eas E 
Ram Disk 512 e 768 Kbytes 


CONSULTE-NOS SOBRE A LINHA AMIGA 
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ANO IX Nº 96 CAPA: CLAUDIO COSTA 





Ao leitor 


Explorar os recursos de cor de um micro PC é um dos muitos sonhos dos usuários 
dessa linha. O preço proibitivo dos monitores RGB, no entanto, tem direcionado 
o mercado pessoal para soluções mais acessíveis, via televisores adaptados. 

Nesta edição, MICRO SISTEMAS analisa estas implementações e publica um 
artigo mostrando a visão dos técnicos sobre o uso da televisão. Este tema, que sem 
dúvida é apaixonante, continuará presente em nossas próximas edições. 

Outro destaque desta edição é um novo espaço editorial, chamado SOFTWARE. 
Nele apresentaremos todos os meses programas que se encontram à venda no 
mercado. Nossa preocupação não é exclusivamente com o ineditismo dos produtos, 
mas sim traçar ao longo das edições um perfil bastante claro do mercado brasileiro. 
Nosso objetivo principal é apresentar aos leitores da revista o que o mercado tem 
a oferecer em termos de diversidade, qualidade e curiosidade para as linhas de micros 
pessoais disponíveis no mercado brasileiro. 

No mês de circulação desta edição (agosto) entra em cena novamente a Feira 
Internacional de Informática, que será realizada este ano no Rio de Janeiro. Nesta 
ocasião estaremos colocando no mercado uma edição especial de MICRO 
SISTEMAS que trata especificamente de drives e discos. Nela o leitor encontrará 
tudo o que sempre quis saber sobre a mídia magnética. 


Renato Degiovani 
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Interface Gráfica 
aumenta eficiência 
do usuário 


A Microsoft Corporation anunciou os re- 
sultados do primeiro estudo que compara os 
grandes efeitos de dois tipos de interfaces 
de software — a interface gráfica para usuá- 
rio (GUI — Graphical User Interface) e a in- 
terface de caractere para usuário (CUL — 
Character User Interface) - na produtividade 
operacional. O estudo, conduzindo por Tem- 
ple, Barker e Sloane, Inc., uma firma de con- 
sultoria independente, concluiu que GUI gera 
um maior retorno na área de investimento 
tecnológico do que uma interface tradicio- 
nal, pois os usuários trabalham com maior 
rapidez e eficiência, possuem maiores recur- 
sos, requerem menos treinamento e supor- 
te, tornam-se mais capazes de auto- 
aprendizado e exploração, além de apresen- 
tarem menor frustração e cansaço. 

Uma interface gráfica depende mais de 
recursos visuais do que de comandos no te- 
clado para diferenciar as funções no softwa- 
re. Um usuário GUI seleciona comandos de 
software reconhecendo e escolhendo um 
símbolo na tela com seu mouse, O usuário 
CUI no entanto, deve lembrar-se e entrar co- 
mandos muitas vezes pré-designados e não- 
intuitivos usando o teclado. A interface grá- 
fica GUI otimiza a utilização do PC 
transformando-o em uma ferramenta que 
fornece acesso fácil e amigável às suas 
informações. e 

O estudo, quê levou 12 meses até ser 
completado, testou as reações de usuários 
iniciantes e experientes nos ambientes GUI 
e CUI em testes clínicos, avaliação de atitu- 
des e grupos focalizados. O estudo encon- 
trou evidências claras de benefícios do am- 
biente gráfico sobre o tradicional sistema ba- 
seado em caracteres e uma forte preferên- 
cia do usuário por sistemas gráficos. 

Para garantir que as diferenças na perfor- 
mance do usuário vieram da diferença de in- 
terface, Temple, Barker e Sloane fizeram com 
que o estudo controlasse outras variáveis, in- 
cluindo o hardware usado, nível de experiên- 
cia do participante, documentação e níveis 
de curriculum, instruções dadas, e medidas 
das reações dos usuários. 


Cl ingressa no 
mercado de CBT 


A Cl-Compucenter informática está lan- 
ando uma série de “courseware” (auto- 
instrução por computador) desenvolvida pe- 
la sua divisão CI Consult. É a estréia da em- 
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presa no mercado nacional com produtos le- 
vando sua marca e a primeira iniciativa no 
País de produtos para CBT (Computer Based 
Trainning). 

Os primeiros títulos da “série |” de cour- 
seware vão atender à demanda mais urgen- 
te do mercado de microinformática. São 
eles: Microinformática Sem Mistério, Story- 
board Plus Quadro a Quadro e ABCE do Lo- 
tus 123. 

Para a CI Consult, o treinamento indivi- 
dualizado via computador deve mudar os ru- 
mos do aprendizado durante os anos 90, 
substituindo o método tradicional baseado 
em instrutor, material de apoio, e que exige 
hora marcada, sala de aula e duração defi- 
nida. Com a disponibilidade de fazer cursos 
no próprio ambiente de trabalho e de impor 
um ritmo natural ao treinamento, o usuário 
vai descobrir, em pouco tempo, as vantagens 
da nova modalidade de sistemas 
instrucionais. 


Os coursewares são modularizados, per- 
mitindo ao usuário que navegue pelo progra- 
ma, evitando assuntos já conhecidos e 
detendo-se naqueles de maior interesse. Os 
programas trabalham com textos e imagens 
integrados em frames de informação, proje- 
tados para facilitar a assimilação por parte 
do usuário, e gerando um alto grau de inte- 
ração. Instruções são oferecidas em resposta 
aos erros e acertos do usuário, sendo que 
qualquer uma delas pode ser revista em ca- 
so de dúvida. 

ACI Consult, responsável pelo desenvol- 
vimento dos produtos, estima que o tempo 
de aprendizado através do courseware é re- 
duzido em pelo menos 50% se comparado 
aos cursos ministrados tradicionalmente pa- 
ra os mesmos conteúdos. O nível de reten- 
ção da informação por parte do usuário tam- 
bém passa a ser 25% maior. 


Mídia lança micros 
para PMEs 


Indicado como terminal de rede, terminal 
emulador IBM, terminal PDV ou como micro 
doméstico, o Mídia XT Júnior é um novo con- 
ceito de microcomputador que a Mídia Infor- 
mástica está oferecendo às pequenas e mé- 
dias empresas. Trata-se de um modelo na li- 
nha Disk-Lass, idêntico a um PC mas com ta- 
manho e peso reduzidos, totalmente compa- 
tível com o IBM PC/XT e com o sistema ope- 
racional MS-DOS. Pesa apenas um terço dos 
modelos convencionais de 16 bits e funcio- 
na com qualquer rede local nacional, como 
Amplus, Net-Mb, Novell, Cluster, Telsit, etc. 

O Mídia XT Júnior tem uma capacidade 
de memória de 256 Kbytes podendo ser ex- 
pandida para 736 Kbytes. Sua performance 
é 40% superior em 4,77 MHz ou 8 MHz se 


RCM e Nutec lançam 
editor para o Zim 


Finalizando um período de desenvolvi- 
mento, RCM e Nutec assinaram um acordo 
de fornecimento de software em regime de 
“OEM” para o programa nZim. 

Desenvolvido pela Nutec Informática 
Ltda., no final do ano de 89, o nZim é agora 
o editor de programas ZIM oferecido e supor- 
tado pela RCM, distribuidora deste SGBD re- 
lacional para o Brasil e América Latina. 

O nZim é o primeiro de uma família de 
editores de programas que a Nutec vai ofe- 
recer para ambientes Unix, com outros lan- 
çamentos no segundo semestre de 90. Es- 
te tipo de produto se caracteriza pela simpli- 
cidade e facilidade de uso, alta velocidade na 
execução de comandos e facilidades espe- 
cíficas para uma determinada linguagem, 
além da possibilidade de exame do dicioná- 
rio de dados durante a edição, importação de 
nomes de entidades, relacionamentos, cam- 
pos, programação de macros para o teclado 
(“keyawords” ZIM já incluídas) e acesso ao 
“help”- do ZIM dentro da edição. 


Limasoft: MSX voltado 
para fins profissionais 


A empresa Limasoft está voltada para o 
pequeno usuário a fim de que o mesmo pos- 
sa usar seu MSX não apenas no lazer, mas 
também para finalidades profissionais. 

Assim o pequeno empresário e o profis- 
sional liberal poderão usar seu MSX como 
poderoso instrumento para tomada de 
decisões. 











MÍDIA XT JÚNIOR 


comparado com os equipamentos similares, 
suporta disco rígido tipo Winchester de 20 
Mbytes, uma interface paralela (printer), uma 
interface serial, um relógio de tempo real não 
volátil e ainda uma interface especial para lei- 
tura de códigos em barras - o Dext-200. 


Monitor Multi-Sinc 
chega ao mercado 


A Datanav Engenharia está iniciando a 
produção de seu novo monitor em cores de 
19" 0 MVA-192/V-MS, que possui caracteris- 
ticas de multi-sincronização dentro de uma 
extensa gama de frequências. O Multi-Sinc. 
é o primeiro monitor com tais características 





MONITOR MULTI-SINC 


Novas versões 
do Samba e ABC 


A PC SOFTWARE, empresa produtora dos 
softwares Samba — Planilha eletrônica com 
capacidade gráfica e banco de dados, e o 
ABC, editor de textos, está lançando novas 
versões mais avançadas de seus já tradicio- 
nais produtos. 

No caso do ABC, a Empresa está apresen- 
tando uma grande novidade no mercado de 
editores de textos, ou seja, possibilidade de 
visualização do texto na tela, como sai na im- 


em fabricação no País, possuindo a capaci- 
dade de se autoconfigurar para frequências 
de deflexão horizontal de até 37Khz e de de- 
flexão vertical de até 90Khz. 

O MYVA 192/V-MS possibilita mudanças 
automáticas de diferentes configurações 
gráficas, podendo operar com resoluções de 
640x480(VGA), 800x600 (Super VGA) e 
1024/68 (VGA Estendido). Apresenta 256 co- 
res para resoluções de até 640x480, sendo 
ideal nas aplicações das áreas de processa- 
mento de imagens, artes gráficas e CAD 3D. 


pressora, com oito tipos colocados à sua dis- 
posição, o que facilita a vida do usuário que 
antes era obrigado a imprimir os textos pa- 
ra verificar o resultado final. O ABC também 
trabalha com texto infinito, ou seja, o limite 
é ohardware. Além disso a nova versão con- 
tará com o maior corretor ortográfico do 
mercado brasileiro, de 1.000,000 de palavras 
de acordo com o Dicionário Aurélio Buarque 
de Holanda Ferreira, o qual interativamente 
conduzirá o usuário à grafia dos textos. 

Com relação ao Samba, a PC Software es- 
tá lançando uma nova função revolucionária 
opcional, permitindo a confecção de plani- 
lhas em 3D, sendo que a versão atual conti- 
nuará a ser comercializada. 





Gerenciador de 
Mala-Direta 


A Brothers Informática, empresa dedica- 
da à elaboração de programas para micro- 
computadores, depois de passar alguns me- 
ses elaborando e estudando e Gerenciador 
de Mala-Direta, chegou a um produto final 
com qualidade, que além de possuir as roti- 
nas simples encontradas em outros progra- 
mas, contém rotinas, não encontradas nos 
mesmos, que-têm por finalidade facilitar o 
manuseio e economizar tempo nos proces- 
sos de controle envolvidos. 

O Gerenciador cria seu próprio arquivo de 
banco de dados, mas, se o usuário já possui 
um pronto, poderá utilizá-lo sem problema, 
observando a compatibilização do tipo e no- 
me dos campos, o que poderá ser feito pelo 
próprio dBase III Plus. O programa permite 
que se faça backup, garantindo a integrida- 
de do arquivo no caso de perda acidental, 
(pode ser feito backup para qualquer drive e 
qualquer subdiretório); apagar qualquer ar- 
quivo sem sair para o DOS e mudar o PATH 
(rota) na busca de arquivos (somente de uni- 
dade de drives A:, B: ou C;). 

Além disso permite a seleção de 13 dife- 
rentes formatos de etiquetas, desde tama- 
nho até número de carreiras; a seleção dos 
campos que comporão o relatório; o manu- 
seio e a manutenção do banco de dados 
com as seguintes opções: APPEND, 
SEARCH, REPLACE e DELETE. O acesso aos 
registros é feito através do código do item 
armazenado. 

No entanto os relatórios só poderão ser 
impressos se forem configurados pela opção 
Configure-Report. Nos relatórios os usuários 
poderão inserir um cabeçalho, escolher a lar- 
gura do formulário, espaço duplo e a com- 
pressão dos caracteres. 

Todas as mensagens e menus estão em 
inglês, para facilitar àqueles que já utilizam 
o dBase Ill +. Por estar em outra língua, hou- 
ve o cuidado de colocar mensagens fáceis 
e objetivas. Para aqueles que não estão acos- 
tumados com inglês, há uma outra versão, 
que traz a tradução dos menus e 
mensagens. 





JOGOS PARA MSX 1 e 2, MEGAROM E APLICATIVOS 


TEMOS OS ÚLTIMOS LANÇAMENTOS 


ATENDEMOS TODO O BRASIL 
SOLICITE NOSSO CATÁLOGO GRÁTIS 


CLASSIC SOFT MSX 


Rua João Cordeiro, 489—CEP 02960 — Freguesia do Ó 


São Paulo-Capital FONE (011)875-4644 


JOGOS: Temos a coleção completa 
APLICATIVOS: Os melhores do mercado 


2, ETC. 


GARANTIMOS TOTALMENTE 


NOSSOS PRODUTOS 


ÚLTIMAS NOVIDADES 


10-BLACKSIGER, TENCION, SMURS, SIDER, BIGE, 
ETC. 1,0 MEGARAM - FLIGHT SIMULATOR, KING 
KNIGHT, DAIVA, CROSS BLAIN, ETC. 2.0 MEGARAM 
- SPACE MAMBO, RIVTE, RACING CARF, BASE BALL 


CADA 10 JOGOS 1 GRÁTIS 
JOGOS SIMPLES 

JOGOS ESPECIAIS 
MEGAROM 1 e 2 

20 NORMAL 

APLIC. À 

GRAVAÇÃO FITA K7 ACRES 








CMC 





COLETOR DE DADOS CMC 


Compilador para PC 


A CMC está lançando um compilador pa- 
ra PC, que irá permitir ao próprio usuário de 
um coletor desenvolver o programa especi- 
fico para sua necessidade, visando a adequa- 
ção do coletor a sua finalidade específica de 
uso. Para Chaim Bulga, diretor da CMC, o 
compilador (programa residente no PC que 
transforma a linguagem-fonte em linguagem 
de máquina) “tornará o usuário independen- 
te na área de programação! 

O coletor de dados CMC é um microcom- 
putador supercompacto, portátil, pesando 
apenas 300 gramas. Funciona a pilha ou a 
energia elétrica. Pode ser utilizado para trans- 
missão e recepção de dados relativos a pe- 
didos de vendas, controle de estoque, infor- 
mações sobre preços, inventários e um sem 
número de outras aplicações. A comunica- 
ção de dados pode ser feita, tanto na recep- 
ção como na transmissão, através de cabo 
plugado diretamente ao microcomputador 
ou também via telefone, através de um mo- 
dem ou com uso de um acoplador acústico 
embutido ao coletor, que se encaixa direta- 
mente e sem fios ao bocal do telefone. 


Programas enriquecem 
o Ventura 


A BraSoft acaba de incluir em sua linha 
de editoração eletrônica (DTP-desktop publis- 
hing) novos programas que vão enriquecer 
os trabalhos desenvolvidos com o Ventura. 
Como forma de atrair os consumidores po- 
tenciais nessa área, a Brasoft está lançando, 
com exclusividade, o Ventura Plus. 

Trata-se de uma versão composta pelo 
próprio Ventura Publisher 2.0, pelos softwa- 
res VPransfer e VP-Acent e que vem acom- 
panhada, ainda, por um mouse Digigraf, gra- 
ças a um acordo firmado recentemente en- 
tre esta empresa e a BraSoft. O VPIransfer 
foi desenvolvido para converter textos dos 
principais processadores, mantendo acen- 
tuação em língua portuguesa, enquanto o 
VPAcent permite ao Ventura acentuar dire- 
to pelo teclado, como uma máquina de 
escrever, 

Para transformar uma tela comum em pá- 
gina inteira, a BraSoft está trazendo ao mer- 
cado brasileiro o programa Softer Kicker, que 
elimina o uso de barras de deslocamento e 
a necessidade de redesenhar textos, gráfi- 
cos e imagens. Ele reduz de 5.0 para 0.1 se- 
gundo o tempo para se obter uma visão re- 
duzida da página, elevando em cerca de 
30% a produtividade do Ventura. 

“VP to the Max” é o nome do corretor or- 
tográfico em inglês que trabalha junto com 


Avançada tecnologia 
em periféricos 


Empresa constituída há cerca de um ano, 
a Adespro Tecnologia está concluindo acor- 
do de transferência de tecnologia com a Plus 
Development Corporation, pertencente ao 
grupo norte-americano Quantum. Através do 
acordo a Adespro Tecnologia pretende intro- 
duzir no mercado interno, a médio prazo, 
uma linha de produtos sem similar tecnoló- 
gico no País. 

O Hardicard, winchester em placa que por 


o Ventura, evitando que o usuário tenha que 
sair deste programa para buscar recursos de 
um processador de texto, além de também 
realizar funções de busca e troca e possuir 
um dicionário de sinôminos. A BraSoft está 
em negociações com a Aristocad Inc., fabri- 
cante do “VP to the Max”, para elaborar um 
corretor em português. 

Zoom duplicado, orientação de página 
vertical e horizontal e drivers para vários ti- 
pos de resolução de tela são alguns dos re- 
cursos oferecidos pelo programa More Win- 
dows. Seguido a linha do Softer Kicker, ele 
permite a um monitor EGA ou VGA, mono- 
cromático, emular na tela uma página intei- 
ra de 19 polegadas, além de aumentar em 
mais de 30% a produtividade do Ventura. 

Nosttrabalhos editorados eletronicamen- 
te, a qualidade das impressoras é de funda- 
mental importância. Pensando nisso, a Bra- 
Soft trouxe para o mercado brasileiro o pro- 
grama Ultra Script PC Plus que transforma 
qualquer impressora, inclusive as matriciais, 
em impressora padrão PostScript. Esse soft- 
ware possui cinco famílias de tipos com 47 
fontes no total, além de fontes para sinais de 
marca registrada, trade mark, etc. 

Completa alinha de DTP da BraSoft o pro- 
grama VP-Manager. Capaz de organizar e ad- 
ministrar todos os arquivos (não apenas os 
do Ventura), ele cria diretórios, renomeia, co- 
pia e move arquivos. Além disso, gera rela- 
tórios detalhados de capítulos, folhas de es- 
tilo e apêndices, controlando o andamento 
dos trabalhos e mantendo anotações atua- 
lizadas do estágio de cada edição. 


sua concepção mecânica tornou-se um dos. 
lançamentos de maior aceitação no merca- 
do mundial de periféricos, e o Passport, dis- 
co removível que pode ser instalado interna 
ou externamente ao micro, são os primeiros 
ítens desenvolvidos pela Plus Corporation 
que a Adespro Tecnologia vai produzir no Bra- 
sil. O passo seguinte prevê a fabricação de 
scanners inteligentes. 

A opção por essa linha de produtos não 
foi casual, mas baseou-se na constatação de 
que os usuários nacionais estavam recepti- 
vos a soluções de alta tecnologia e, conse- 
quentemente, melhor performance, na área 
de armazenamento de dados. 














Gaúcho compra o MSX na Digimer. 


MODEM - MOUSE - DRIVERS - MONITORES. 
CONHEÇA AS OFERTAS SEMANAIS. 


SEE 


REVENDEDOR AUTORIZADO DDX. — 
COMPLETA LINHA HP. DIGIME? 


Rua Cel. Vicente, 459 - Centro 
Porto Alegre - RS - CEP 90.030 
Fone: (0519) 26-4395 








Equipamentos para 
projeção de sofiware 


A Fotoptica — Divisão de Eventos e Loca- 
ções acaba de importar equipamentos de úl- 
tima geração destinados à projeção de au- 
diovisuais gerados em software. Os equipa- 
mentos são o Vídeo Projetor Sony VPH 1031, 
fabricado no Japão, e o Data Show da 3M, fa- 
bricado nos EUA. Ambos permitem a proje- 
ção de imagens em alta resolução, com efei- 
tos de animação a partir de um microcom- 
putador PC com placa EGA ou VGA, para uti- 
lização em conferências, palestras, etc. Tam- 
bém geram imagens com placas CGA, de 
baixa resolução. 

A Divisão de Eventos e Locações da Fo- 
toptica também produz as telas de compu- 
tação gráfica sonorificadas, a partir de um ro- 


PROJETORES DE SOFTWARE 


teiro elaborado conjuntamente com a em- 
presa interessada que, dependendo de suas 
necessidades, além da produção das telas 
pode alugar os equipamentos de projeção 
(telões) com operador técnico, assim como 
o microcomputador, as placas e os equipa- 
mentos de áudio. 

As vantagens em relação aos sistemas 
tradicionais de projeção são várias. A proje- 
ção em software permite alterações de últi- 
ma hora nas informações a serem mostra- 
das; o audiovisual é gerado em tempo mui- 
to menor e suas imagens, em alta resolução, 
podem conter efeitos de animação. 


O Videoprojetor Sony projeta imagens em 
telões de 50 a 250 polegadas, sendo ideal 
para grandes ambientes. O Data Show da 3M 
(uma tela de cristal líquido que recebe ima- 
gens do PC e acopla-se sobre um retoproje- 
tor comum) é indicado para pequenos 
ambientes. 











MONITOR VDC 901 


Monitores de 
terceira geração 


A Videocompo está lançando no merca- 
do o monitor Color VGA, com tecnologia de 
terceira geração, em padrão VGA, que pro- 
porciona alta resolução gráfica na tela, com 
projeção de 256 cores simultâneas. O mo- 
nitor VGA da Videocompo (o primeiro com fa- 
bricação em série no Brasil) apresenta reso- 
Iução de 640 por 840 pontos, que permitem 
maior densidade de informações na tela, 
sem provocar cansaço visual, O equipamen- 
to é indicado para aplicações de editoração 
gráfica (desktop publishing), CAD-CAM e de- 
mais aplicações convencionais. Seu tubo e 
componentes indutivos são importados do 
Japão. 

Outro lançamento da Videocompo é o 
monitor VDC 901, cujo gabinete é feito em 
termoplástico injetado (ABS), matéria-prima 
de padrão internacional de qualidade, que 
permite design e acabamento mais avança- 
dos. O monitor VDC 901 possui tela em fós- 
foro verde ou branco (monocromático), com 
resolução de imagem superior aos monito- 
res de seu padrão (800 por 525 pontos). 








e Micro Expert 
eDrive51/4e 31/2 

e Impressora Lady 80 

e Monitores : 

e Kit2.0 

e Mega-Ram c/Ramdisk 


e Modem Interface 
e Placa 80 colunas 
e E muitomais. 


sisrema MSX 


RigEEET Iformálica lída 





HARDWARE 


e KitTurbo (aumentaclock p/5.7 mgh.) 





SAS 


Nemesis e XSW e Práctica e Orionsoft 
e Paulisoft e Cibertron e Softnew 
e Engesoft e Aleph 


E mais, suprimentos em geral. 


Ligue Logo, Enviamos 


Para Todo o BRASIL Via Sedex 





TEL. (021) 264.3726 


RIOSOFT INFORMÁTICA LTDA. 


R. Conde de Bonfim, 346 1j. SS-107 - Tijuca 
Rio de Janeiro - RJ - 20520 Tel: (021)264-3726 





PEÇA RIOSOFTNEWS GRÁTIS 





MF 88 TR: O Primeiro 
Disk-Less Microtec 


Com o objetivo de ampliar sua participa- 
ção entre usuários de redes locais, a Micro- 
tec está lançando o MF-88 TR, seu primeiro 
terminal inteligente de rede, baseado na ar- 
quitetura do microcomputador MF 88 já tra- 
dicional no mercado. O novo produto é uma 
estação disk-less (sem discos rígidos ou fle- 
xíveis), que utiliza os periféricos da estação 
servidora da rede. 

Para o desenvolvimento do produto, a Mi- 
crotec eliminou todos os recursos dispensá- 
veis ao microcomputador, quando utilizado 
como terminal de rede, e aproveitou a tecno- 
logia já disponível na linha de produção do 
MF 88. Esses dois fatores combinados (eco- 
nomia no desenvolvimento e na configura- 
ção do produto) trouxeram uma queda de 
30% no custo final da estação, oferecendo 
novo incentivo para o mercado de redes. 


pcAnywhere entra 
no mercado 


O pcAnywhere, software para acesso re- 
moto de programas desenvolvido pela DMA, 
entra no mercado brasileiro distribuído pela 
7COMm. 

Fácil de operar, o pcAnywhere acessa, 
controla, monitora, testa e executa qualquer 
programa no PC remoto, onde quer que es- 
te esteja, além de receber e transferir arqui- 
vos via telefônica comum. O acesso ao mi- 
cro remoto é seguro e protegido por senhas 
específicas para usuários e programas de- 
terminados, gravando todas as ocorrências 
durante a conexão. Possibilita ainda o uso de 
impressora ligada ao micro remoto, e o diá- 
logo entre operadores. 

Desenvolvido pela DMA (Dinamic Micro- 
processor Associates) e distribuído interna- 
cionalmente pela EKD Computer Sales and 
Supplies Corp, o pcAnywhere teve seu cadas- 
tramento aprovado pela SEI, para ser distri- 
buído no Brasil pela 7COMm. 


Occidental School 
muda de endereço 


A Occidental School, especializada em 
cursos técnicos na área da Informática está 
instalada agora em novo endereço: Av. São 
João, 1588 — segunda Sobreloja - São Pau- 
lo - SP - CEP 01260. Correspondência para 
Caixa Postal 30.663 - São Paulo - SP - CEP 
01051 
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Bit System - o 
videogame da Dismac 


Decididamente chegou a vez dos jogos 
eletrônicos traduzida através dos videoga- 
mes de terceira geração que têm alta defi- 
nição e cartuchos com grande capacidade 
de memória. Verdadeira febre no Japão e nos 
Estados Unidos. No Brasil eles têm mercado 
potencial estimado em um milhão e meio de 
cartuchos e meio milhão de consoles para 
este ano. É para disputar uma fatia deste co- 
biçado mercado que a Dismac lança o Bit 
System. 

O videogame da Dismac possui um sis- 
tema compatível com o da Nitendo onde a 
inserção de cartuchos é semelhante à exis- 
tente em aparelhos de vídeo-cassetes, com 
as fitas ficando por inteiro dentro do apare- 
lho, o que proporciona maior proteção e con- 
sequentemente mais durabilidade aos car- 
tuchos, resultando num melhor desempe- 
nho dos jogos. O console também aceita car- 
tuchos de outros fabricantes como o Phan- 
tom, o Dynavision Il e o Top Game mediante 
a adaptação de um conversor próprio. 

O Bit System terá cartuchos de 24 a 60 
K de memória, com 72 pinos. De inicio ele 
oferecerá ao consumidor cerca de 20 jogos 
entre os quais os mais conhecidos são o Pro- 
Wrestling, o Seicross, o Ninja 3, o Arkanoid, 
o The Legend of Kage e o Elevador Action. 

Explorado desde o ano passado, o setor 
de videogames de terceira geração mostra- 
se bastante promissor. Só nos Estados Uni- 
dos o setor faturou em 89 cerca de US$ 3,4 
bilhões. O mesmo sucesso deverá acontecer 
com o consumidor brasileiro, ávido por 
novidades. 

Um serviço te teleatendimemto ao clien- 
te foi criado pela Dismac. Trata-se de uma li- 
nhatelefônica que funciona no número (011) 
825-3588 durante o horário comercial, que 
responderá qualquer dúvida do consumidor 
sobre o Bit System, desde dicas sobre como 
vencer os obstáculos de cada etapa de um 
jogo até informações sobre serviços de as- 
sistência técnica. 


Expansão do sistema 
Euclid-IS 


O sistema Euclid-IS, dedicado a soluções 
de CAE/CADICAM baseadas em modelagem 
de sólidos, aumenta em 1990 sua penetra- 
ção no segmento aeroespacial norte- 
americano. A Lockheed, sexta maior indi 
tria do setor nos Estados Unidos, após im- 
plantar 43 estações gráficas no ano passa- 
do, decidiu para este ano ampliar seu siste- 
ma Euclid-IS para um total de 140 estações, 
num crescimento real de mais de 200%. 

Atuando em setores de tecnologia de 
ponta, a Lockheed é a responsável pela fa- 
bricação do satélite de comunicação Milstar, 
do míssil balístico Trident Il e de diversos 
aviões militares. Possuía também sua própria 
empresa de CAD/CAM, a CADAM inc, recen- 
temente adquirida pela IBM. 

A escolha do sistema Euclic-IS foi realiza- 
da após extensos testes comparativos com 
outros produtos e significou uma grande vi- 
tória para a Matra Datavision, empresa fran- 
cesa que o desenvolve. No Brasil o Euclid-lS 
É representado com exclusividade pela Com- 
pugraf e vem sendo utilizado com sucesso 
por inúmeras empresas. 





Interface para boot 
remoto 


Tendo em vista a adoção cada vez maior 
de estações “diskless” por parte das empre- 
sas nacionais, a Prisma Comunicações Digi- 
tais lançou recentemente o PrisBoot, uma in- 
terface com suporte para boot remoto que 
permite a utilização dessas estações em 
rede. 

O produto possibilita ao usuário entrar di- 
retamente em seu aplicativo, evitando os da- 
nos com a proliferação de vírus nas empre- 
sas, aumentando a produtividade através da 
impossibilidade de rodar programas não con- 
dizentes com os objetivos das empresas e 
inviabilizando tentativas de efetuar cópias 
não autorizadas. Também possui como par- 
te integrante um software para teste da es- 
tação e teste de comunicação entre esta- 
ções, e está sendo especialmente utilizado 
em aplicações com os softwares Novvel e 
PCSA/PC Client, ambos cormecializados pela 
Prisma. 

Em complemento a essa linha foi lança- 
daa PriStation, uma estação dedicada “disk- 
less” para redes locais, composta de CPU In- 
tel 8088, interfaces paralela e serial, contro- 
lador de vídeo e monitor CGA monocromá-. 
tico, memória RAM 768Kb, memória ROM 
32Kb, e teclado. 


Novo Mouse no 
mercado 


Visando atender às necessidades merca- 
dológicas do momento e suprir a demanda 
cada vez maior de equipamentos utilizados 
nos programas gráficos, a Servimec S/A co- 
loca à disposição no mercado o Input Mou- 
se Serial/Bus, fabricado pela Input Digital S/A. 

O equipamento está sendo divulgado, ini- 
cialmente, através da promoção Input- 
Servimec, que consiste em um kit, onde o 
Mouse vem acompanhado de um Mouse 
Pad, um livro didático e um PFS First Publis- 
her, além de curso de introdução ao Desktop 
Publishing, ministrado pela própria Servimec. 
Vem acompanhado pelo Works, que contém 
banco de dados, planilha eletrônica e proces- 
sadores de texto. 

O Input Mouse trabalha acoplado ao com- 
putador e permite localizar e selecionar as 
opções com maior rapidez, além de dese- 
nhar e editar. Sua maior utilização vem sen- 
do junto ao Desktop Publishing, Processado- 
res de Textos, Programas Integrados e Pro- 
gramas de CAD/CAM. 

Compostos por uma esfera de 200 dpi de 
resolução, o novo modelo tem maior preci- 
são e é 100% compatível com o Microsoft 
Mouse. 


Pasta para arquivo 
de formulários 
continuos 


ARufS/A, fabricante de pastas para arqui- 
vamento, está lançando no mercado uma no- 
va linha de pastas próprias para arquivar for- 
mulários contínuos. Em quatro dimensões 
diferentes, os novos modelos se adaptam a 
todos os tipos de arquivo disponíveis no mer- 
cado e aceitam todos os padrões de formu- 
lários contínuos utilizados no País. As pastas 
são confeccionadas em papel cartão mar- 
morizado amarelo e apresentam ferragem 
metálica e ponteiras terminais em plástico 
reforçado. 





MANUAL DIDÁTICO ANGEISA 


Drive personalizado 


Com o intuito de personalizar o uso de dri- 
ves em computadores da linha MSX, a An- 
geisa Eletrônica Ltda lança este periférico 
com um manual didático e prático confeccio- 


Novos produtos da 
Estratégia SC. 


A Estratégia SC. está ampliando a sua Li- 
nha Timbrada de produtos com o lançamen- 
to da Chancela Timbrada e do Fax Timbra- 
do. Esse conjunto de programas para micro- 
computadores da linha IBM-PC caracteriza- 
se pela impressão da logomarca da empre- 
sa em diferentes situações. 

O Papel Timbrado imprime a logomarca 
da empresa e, logo a seguir, os relatórios e 
textos produzidos por editor, planilha, ban- 
co de dados, Basic, Pascal, Cobol. É prático 
e muito mais econômico do que papel 
pré-impresso. 

A Etiqueta Timbrada é um complemento 
natural do Papel Timbrado. Personaliza eti- 
quetas para disquetes, pastas e envelopes 





amem || 


nado em impressora a laser para que o usuá- 
rio explore o Sistema Operacional assim co- 
mo o Basic em disco, através de uma inter- 
face compatível com os acionadores de dis- 
cos de tamanhos 3 1/2" e 5 1/4", A Angeisa 
garante o produto durante seis meses. 


ajudando na identificação e organização dos 
mesmos. A logomarca é impressa em etique- 
tas, sendo produzido, de cada vez, apenas o 
número necessário destas. 


A Chancela Timbrada é um elemento de 
segurança nos cheques impressos pelo mi- 
crocomputador. Logo após a impressão dos 
dados do cheque é impressa a Chancela 
Timbrada, composta de um elemento gráfi- 
co e do valor do cheque. Também pode ser 
utilizada em outros documentos impressos 
pelo computador, onde a segurança seja 
importante. 


O Fax Timbrado personaliza as mensa- 
gens enviadas por FAX (quando o fax é aco- 
plado ao microcomputador) através da trans- 
missão da logomarca da empresa. Assim o 
fax, na outra ponta, recebe numa mesma fo- 
lha a logomarca da empresa e o texto que foi 
transmitido. 
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O EASYNET no Brasil 


Conheça a maior bibnoteca eletrônica do mundo 


Olenka Machado 





Uma novidade movimenta a comu- 
nidade técnico-científica brasileira. Os 
usuários de bancos de dados computa- 
dorizados têm, a partir do mês de julho, 
acesso ao Sistema Easy Net, considerado 
a mais importante porta de entrada para 
as principais bases de dados internacio- 
nais. 

Com sede na Filadelfia, EUA, onde 
estão interligados 300 computadores, o 
EasyNet tem 13 sistemas de infor- 
mações, com 900 bases de dados, tota- 
lizando um acervo de 400 milhões de re- 
gistros, disponíveis já para mais de 
850.000 usuários. É a maior biblioteca 
eletrônica do mundo, 90% do conheci- 
mento científico e tecnológico da hu- 
manidade, ao alcance de apenas um mi- 
crocomputador e um modem. 

Enfim, o Brasil dá um passo decisivo 
para o avanço da pesquisa, driblando sua 
defasagem de países como o Japão e 
EUA. 

As informaçõs oferecidas pelo Easy- 
Net interessam aos mais diversos cam- 
pos de pesquisa, desde arte, música, fi- 
losofia, a temas específicos como 
impostos ou até informações do governo 
americano. Dois' componentes so- 
brepõem os bancos de dados computa- 
dorizados às informações obtidas pelas 
vias convencionais: rapidez e atualidade. 
Graças ao acervo disponível no EasyNet, 
que inclui artigos publicados em milha- 
res de livros e revistas internacionais, 
anais de eventos, teses, relatórios téc- 
nicos, pesquisas de mercado ou paten- 
tes, etc, o pesquisador obtém a infor- 
mação que levaria, no mínimo, semanas 
ou meses de pesquisa e um trabalho in- 
finitamente maior, em apenas dez minu- 
tos de consulta. 

De posse dos requisitos mínimos, 
como um micro, um modem e uma se- 
nha, o pesquisador faz uma ligação para 
a Embratel que, via satélite, transfere sua 
mensagem à sede que por sua vez ana- 
lisa, distribui entre as bases e dá retorno 
da informação solicitada. 
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base, Medline, NCI Cancer Weekly, e 
mais 39 outras bases. 

A representação do EasyNet no país 
pertence à PTI, Publi- 





cações Técnicas Interna- 
cionais, que através da di- 
visão Optionline, dispõe 
também do sistema Dia- 











Que assuntos estão cobertos em suas bases de dados, 
Administração de Empresas Fundos de Investimento. 
Agricultura e Nutrição | Seciogia 
Antropologia Govemo Norte-Americano. 
Arqueologia História 
Artes. Humanidades. 
Assessoria Bancária Imobiária. 
Associações Impostos USA 
Automóveis Indústria 
Aviação Indósvia Tex 
Biografias Inteligência Arial 
Biologia Interesse Geral 
Bolsas e Fundações Investimentos 
Censos Legistação 
Ciência Uleratura 
Ciência da Informação | Marcas Registradas 
Ciências Geológicas | Marketing 
Cinema | Medicina 

| Meio Ambiente 
Computação e Informática Metalurgia 

Música 
Contabiiciade | Negócios Intemacionais. 
Críticas Normas o Espocifcações 
Dados Corporativos 
Detesa 
Economia | Papete Celulose 
Educação Patentes 
Emprego Plásticos. 
Enciclopédias | Politica Intemacional 
Enorga | Psicologia 
Engenharia Ci | Publicidade e Propaganda 
Engenharia Eletrônica. | Química. 
Engenharia Mecânica | Religito 
Escortes Seguros 
Exportação & Importação Sociologia 
Farmácia Telecomunicações 
Fiimos | Televisão 
Filosotia | Transportes. 
Física | Universidades, 


log, com 400 bases de da- 
dos e mais de 175 milhões 
de registros, que somado 
ao EasyNet, oferece 1000 
bases de dados (das 900 
bases do EasyNet, 300 são 
comuns aos dois bancos). 

O acesso ao sistema 
pode ser: ON LINE, con- 
sultas avulsas ou pelo ser- 
viço SDI, de disseminação 
de informação personali- 
zado, que seleciona infor- 
mações de interesse espe- 
cífico através de uma 
estratégia de busca e re- 
mete -via correio, fax ou 
num disquete acompa- 
nhado do software 
'Offline;, que permite criar 
uma base de dados pes- 
soal em seu micro -uma re- 
vista personalizada. Uma 
monitoria internacional da 
informação na sua área de 





= interesse. 





As 900 bases do sistema são distri- 
buídas em 76 assuntos que direcionam 
a estratégia de pesquisa. Em compu- 
tação e informática, por exemplo, o in- 
teressado dispõe de 56 bases de dados 
das quais a NASA Software Directory, 
a CAD/CAM Update, a PC Magazine, a 
CD Computing News, a Data Commu- 
nications, entre muitas outras. 

A pesquisa em bancos de dados tem 
favorecido principalmente a área médica, 
habituada a só tomar conhecimento de 
novas descobertas através da literatura 
especializada que, por vezes, leva meses 
para chegar ao Brasil. Com o EasyNet, 
a comunidade médica tem acesso às úl- 
timas pesquisas através do AIDS Data- 


O custo médio fica em 
torno de 200 dólares oficiais mais 20 dó- 
lares por mês, além da conta telefônica 
e despesas de acesso para a pesquisa 
ON LINE; aproximadamente 15 mil cru- 
zeiros por 10 minutos de consulta avulsa 
e, em média, 85 mil cruzeiros por uma 
assinatura anual para revistas mensais de 
25 registros, o que dá 250 a 300 cruzei- 
ros por registro. 

O, Brasil tem agora mais um instru- 
mento para diminuir a distância existente 
entre os nossos pesquisadores e os cien- 
tistas do resto do mundo. 

Controlando o acesso à informação 
necessária, fica mais fácil superar os tan- 
tos outros obstáculos ao nosso desen- 
volvimento técnico-científico. = 





O sósia do 
microcomputador 
mais notável dos EUA 
você encontra na 
Place Tech pelo menor 
preço do Brasil. 








CARACTERÍSTICAS: 

* microprocessador com clock de 10 MHZ. 

* memória Ram de 640 Kbytes totalmente gerenciada pelo 
sistema operacional. 

* 8 slots, dos quais 6 disponíveis para expansões. 

* placa controladora de vídeo (Color-graphics) e placa Multi 
1/0 com controladora de até 4 unidades de discos flexíveis. 
º relógio de tempo real. 

* portas paralela e serial e “game port”. 

* sistema operacional compatível com MS-DOS. 

* teclado com tecnologia capacitiva, baixo perfil e ajuste 
de altura. 

* monitor de 12”, cinescópio em fósforo verde e alta re- 
solução, possibilitando perfeita definição gráfica. 


PLACE TECH COMPUTADORES LTDA. 


Rua Domingos de Morais, 1786 - conj. 4 
(ao lado do Metrô V. Mariana) 

CEP 04010 - São Paulo-SP 

Tel.: (011)5753087 


DESPACHAMOS PARA TODO O BRASIL 


/GO 


Gerencie o seu winchester 


Uma solução fácil para proteger o seu disco rígido 


André Luiz Lopes Santana 





Todo usuário de microcomputado- 
res está sujeito a surpresas desagra- 
dáveis, vez por outra. Uma das si- 
tuações mais incômodas é quando 
um iniciante em microinformática ou 
algum usuário menos habilidoso 
inadvertidamente apaga ou formata 
o conteúdo do Winchester. 


CINBAT>TYPE TELAZ.BAT 
GECHO OFF 
CLS 


REM Esta e a Tela Principal 


ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
PROMPT $p$g 
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No entanto, existe uma maneira 
prática e segura para proteger o pre- 
cioso conteúdo dos discos rígidos: a 
criação de um Sistema de Controle 
(SC). Isto pode ser conseguido de 
duas maneiras: com o uso de um pro- 
grama específico numa linguagem de 
programação ou simplesmente 


do nosso 


DBASE IV 
SIDEKICK 


WORDPERFECT 





bi 
| 
+ 
| 
I 
ABC PLUS I 
I 
l 
I 
l 
| 
l 
l 
n 





SISTEMA DE CONTROLE 


valendo-nos do sistema operacional. 
A sua escolha deve ser proporcional 
ao conhecimento da referida lingua- 
gem, com suas características e li- 
mitações próprias. Por questões de 
praticidade, vamos nos ater aqui à so- 
lução com o sistema operacional. 
Recomendo, para quem tem co- 
nhecimento do sistema operacional, 
a utilização de um SC com arquivos 
tipo BAT. Para isso, o primeiro passo 


== 
EXRERERSES| 


FATURAMENTO 
CONTABILIDADE 


UTILITARIOS 


ESTOQUE 





CENBAT>TYPE C.BAT 
GECHO OFF 


CLS 
REM Este e o arquivo de lote que vai 
TELAZ 


é criar a tela principal, mais conhe- 
cida como menu. Na listagem 1 é 
mostrado o desenho da tela a partir 
da criação do arquivo TELAI.BAT. 
A listagem 2 mostra como criar os 
arquivos BAT relacionados a cada 





















CINBAT>TYPE TELAZ.BAT 
ECHO OFF 
ELS 


REM Este Sub-menu « 
ECHO pa 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
ECHO 
EcHo 
ECHO 
EcHo 
ECHO 
EcHo 
ECHO 
ECHO 
ECHO 

ECHO 

ECHO = = 


Copia 








ENBAT>TYPE F 
HO OFF 





te arquivo de lote e à 's 


PT 4P$6 


Formatar 
Checagem 


Backup de A: 
Restore Faturanneto 
do disco de A: 
Voltar a Central de Controle 
Backup Obras 

Restore Obras 
Injeção contra virus 


PROMPT $eCSmEscolha a sua opcao 


executar a opcao LC. 





uma da opções do seu menu princi- 
pal, relacionando cada arquivo com 
a opção encontrada no mesmo. No 
exemplo, você tem o arquivo de lote 
que vai executar a opção C. 

Os níveis inferiores do menu prin- 


REM Este e um dos sub-menus existentes no Sistema. 
UTILITARIOS ) ex 








Diretorios da Windchester 
Formatar disquete em A: 


disquete em B: 
do disco em A: 


l 

) 

I 

I 

| 
Checagem do disco em B: I 
Backup Faturamento | 
I 

l 

l 

I 

l 

I 

I 

I 


para Bi: 


pP/ Bi 


Cem AZ) 


Kselm 





cuta diversos comandos do DOS, 





cipal, os sub-menus, são definidos na 
listagem 3, pelo arquivo TELAZ. BAT. 
Nesta figura você encontra todos os 
utilitários que podem ser executados 
a partir dos comandos do DOS (você 
os seleciona mediante a escolha de 
uma opção). 

Para terminar, na listagem 4, são 
criados os arquivos BAT relacionados 
aos itens do sub-menu. Neste arquivo 
de lote é encontrada a 'saída' para a 
opção dos utilitários do DOS. 

A utilização dos arquivos tipo BAT 
acarreta apenas um inconveniente: a 
geração de slack (espaços perdidos 
dentro de um cluster) no Winchester. 


DIRE 
FORA 
FORB 
CHK 
CHKB 
BAC 
BACB 
RES 

DIS 

FIN 
BACO 
RESO 
INJECAO 












Para solucionar este problema, sugiro 
que você controle o uso de arquivos 
de lote no disco rígido por intermé- 
dio do FS do Norton Utilities. 


mis a a eram 
ANDRÉ LUIZ LOPES SANTANA é tec- 
nólogo em processamento de dados. Tra- 
balha como analista de sistemas na EBID 
- Páginas Amarelas e programa em As- 
sembler, Pascal e dBase. 
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Imagens coloridas no PC 


Como colorir as imagens geradas pelo seu micro PC a um custo 
relativamente baixo e o que os especialistas pensam acerca do uso 


da televisão como monitor de vídeo 


Sylvio Messias Moraes 





Os micros da IBM estão passando 
por um grande processo de popula- 
rização. Usuários oriundos das má- 
quinas de 8 bits estão trocando seus 
equipamentos por máquinas mais 
modernas. Dentro das opções apre- 
sentadas: PC, Amiga e Macintosh, o 
PC é o de utilização mais prática e 
imediata, em função da sua disponi- 
bilidade no mercado brasileiro. 

Mesmo assim, é frustrante saber 
que o PC “vem de fábrica” com uma 
placa de vídeo que permite manipu- 
lar imagens coloridas e no entanto um 
monitor colorido custa em média 120 
mil cruzeiros. Um preço muito alto 
para a maioria dos usuários pessoais 
ou domésticos. E aí, o que fazer ? 

A resposta imediata a esta questão 
aponta para uma forma de contornar 
o problema: “colorir” o PC a um custo 
relativamente baixo. Nesta edição de 
MICRO SISTEMAS você conhecerá 
uma alternativa prática para a falta de 
cor do seu micro. 


A PLACA CGA 


A placa controladora de vídeo CGA 
(Color Graphics Adapter), standard na 
maioria dos computadores da linha 
PC, possui dois tipos de saída do si- 
nal de vídeo. Uma delas é conhecida 
como vídeo composto e nela o sinal 
colorido está “misturado” em um 
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único plug do tipo RCA. A outra sa- 
ída é feita por intermédio de um co- 
nector RGB, Red-Green-Blue. Este 
conector possui 9 pinos e nele o si- 
nal de vídeo é separado, ou seja, para 
cada uma das três cores primárias há 
um pino específico. 

Portanto, para utilizar os recursos 
coloridos do PC temos duas opções: 
por meio dê um monitor RGB ou de 


ciuuúdÃ,o 


uma televisão devidamente adaptada. 

Tecnicamente falando não há dú- 
vidas: o monitor colorido deve ser a 
opção escolhida quando se deseja um 
resultado de alta qualidade, ou 
quando o usuário pretende passar ho- 
ras a fio diante do micro. No entanto, 
em virtude do seu elevado preço, mui- 
tos usuários deixam de usufruir das 
características do monitor. Neste 


caso, a opção da televisão adaptada 
passa a ser uma idéia atraente. 


A ADAPTAÇÃO DA TV 


A utilização da TV como monitor 
pode ser feita de duas formas. A pri- 
meira é a monitorização do aparelho, 
ou seja, a instalação na televisão de 
uma placa que tem por finalidade o 
tratamento do sinal recebido do mi- 
cro e a sua devida conversão. 

A segunda, também por meio de 
uma placa, utiliza o processo de mo- 
dulação do sinal de vídeo do PC e o 
seu envio para a televisão por meio 
da antena. Esta solução é a mesma 
encontrada no hardware de micros 
como o MSX. 

Existem também algumas formas 
alternativas para o uso da televisão. 
Alguns aparelhos modernos já saem 
da fábrica com uma tomada RCA e 
o circuito próprio para a conexão com 
com micros, videogames e videocas- 
setes. 

Outra forma alternativa de ligação 
micro/TV (e bastante curiosa) é feita 
por meio de um aparelho chamado Vi- 
deo Link ou Vídeo Sprint, ambos en- 
contrados nas lojas especializadas em 
acessórios para videocassete. Esses 
aparelhos distribuem o sinal originado 
em um vídeocassete para TVs que es- 
tejam dentro do seu raio de alcance. 


A CONVERSÃO DA TELEVISÃO 


Com o propósito de esclarecer o 
usuário que optou por monitorizar a 
sua televisão, MICRO SISTEMAS 
procurou diversas empresas e profis- 
sionais que atuam nesta área. Após 
conversar com engenheiros especia- 
lizados no assunto, o que ficou evi- 
dente é que o primeiro passo a ser 
dado pelo usuário é a escolha da te- 
levisão. Desta escolha dependerá a 
qualidade da imagem obtida quando 
o processo de monitorização for uti- 
lizado. A TV deve ter as seguintes ca- 
racterísticas: tamanho reduzido, pois 
isto se reflete diretamente nas carac- 
terísticas de pigmentação da TV; ter 
uma boa definição de imagem; ter um 
circuito aberto que permita a inter- 
venção nele. 

Segundo o engenheiro Cláudio La- 
cerda de Faria, da Intermak Informá- 
tica e Telecomunicações, a monitori- 
zação de uma televisão é possível, 
desde que a escolha do aparelho 
atenda às exigências acima citadas. 
Mas o usuário deverá ficar prevenido 
para o fato de que o resultado obtido 





não será 100% compatível com o re- 
sultado obtido em um monitor RGB. 

De acordo com Cláudio, tanto a TV. 
quanto a placa CGA não foram feitos 
para funcionar em conjunto, pois a 
descarga luminosa ocasionada pela 
TV é muito superior a do monitor. Isso 
acarreta o problema do cansaço vi- 
sual, provocado no usuário, quando 
exposto à TV por tempo prolongado. 

Uma outra questão está relacio- 
nada com o tipo de placa utilizada nas 
modernas televisões. Elas são base- 
adas em pastilhas de circuito inte- 
grado (Cls) e esta modernização im- 
pede que o técnico, ao fazer a 
monitorização do aparelho, consiga 
atingir uma parte específica do cir- 
cuito. Com isso, o ponto onde deve 
entrar o sinal gerado pelo micro, pode 
estar dentro do CI. O ideal é que o 








scolha da 


televisão 

dependerá 
a qualidade 
da imagem 


modelo da televisão não seja nem 
muito moderno e nem muito antigo. 
inião do engenheiro Cláudio, 
deve estar prevenido de que 
se for utilizar o computador em ati- 
vidades gráficas profissionais, ele terá 
problemas com a precisão na deter- 
minação de um desenho a nível de pi- 
xel. No entanto, o usuário que deseja 
um resultado profissional, por uma 
exigência de mercado, não pode ba- 
sear seu trabalho em uma televisão 
adaptada, mas sim em um equipa- 
mento específico. 

Para o engenheiro Yano Yukishi- 
gue, também da Intermak, a monito- 
rização da televisão só pode ser feita 
com a utilização de uma placa espe- 
cífica. Ele concorda com as opiniões 
do Cláudio e complementa: “acho 
que a adaptação da TV só será viável 
economicamente dependendo do 
custo da placa. Uma televisão não 
substitui um monitor e quando você 
chega a necessitar de um monitor co- 
lorido é por que o trabalho assim o 














exige”. Yano ainda diz que: “a quali- 
dade técnica de um trabalho não 
pode ser prejudicada pela utilização 
de hardware inadequado”. 

A questão do cansaço visual pro- 
vocado pelo uso prolongado da tele- 
visão pode ser atribuída, segundo o 
engenheiro Yano, à inexistência de 
uma tela defletora na televisão, o que 
em geral é encontrado no monitor. 


O ADAPTADOR PARA O MICRO 


O engenheiro Márcio C. Freire da 
FHESK Tecnologia Eletrônica Ltda, é 
o autor de um adaptador de televisão | 
para computadores da linha IBM PC 
chamado ATV. O ATV é uma placa 
que, sem alterar as características da 
televisão e do micro, permite utilizar 
a TV como monitor colorido no PC. 

O ATV foi desenvolvido para ope- 
rar com o sinal gerado por uma placa 
CGA. Seu funcionamento é bastante 
simples: o sinal RGB, originado no mi- 
cro, é multiplexado e modulado para 
uma forma de onda de Rádio Frequ- 
ência (RF). Esta onda de RF é sinto- 
nizada para operar pelo canal 3 da te- 
levisão. 

Quanto à qualidade da imagem de 
uma TV utilizada como monitor, o que 
o engenheiro Márcio tem a dizer é o 
seguinte: se a televisão é um bom 
receptor para o sinal de TV, ela será 
um bom receptor para o sinal gerado 
no micro, com o uso da placa ATV”. 
Segundo Márcio, a escolha da tele- 
visão deve recair sobre aparelhos mo- 
dernos e com bons recursos de sin- 
tonia, pois isso será fator 
determinante na qualidade do sinal re- 
cebido. 





CONCLUSÃO 


Agora que os micros PCs estão in- 
vadindo os lares brasileiros, a questão 
do uso colorido do micro passa a fa- 
zer muito mais sentido. Os equipa- 
mentos especializados (os monitores) 
ainda são periféricos cujos preços ele- 
vados assustam o usuário pessoal. 

A alternativa mais racional torna- 
-se portanto o uso da televisão adap- 
tada ou o uso do adaptador ligado di- 
retamente ao micro. Nesta 
reportagem, MICRO SISTEMAS pro- 
curou mostrar como os técnicos se 
posicionam em relação a esse as- 
sunto. 

De qualquer forma, o assunto não 
se esgota no que foi apresentado e 
abre-se, a partir do PC pessoal, um 
mercado ainda inexplorado. o) 
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Assembler no PC: 





os primeiros passos 


Prepare-se para iniciar a jornada que o colocará em contato di- 
reto com a intimidade de seu micro. Saiba onde seu programa 
deverá ser montado e aprenda a dominar as instruções mais 
simples da programação do 8086/88 


Renato Degiovani 


Para programar em Assembler no PC será necessário 
ter um bom montador e um editor de textos dos mais 
simples. Minha sugestão para o montador é o Turbo As- 
sembler, da empresa norte americana Borland Interna- 
tional, por vários bons motivos: é o mais completo, é 
muito bem documentado e pertence a uma família de 
programas (os Turbos) cuja integração e compatibilidade 
entre as diversas linguagens disponíveis é bastante grande. 
Para quem programa em Pascal, C, Basic, etc., trabalhar 
com os produtos da Borland pode ser uma vantagem a 
mais. 

Quanto ao editor de textos, quanto mais simples ele 
for, melhor será. O DOS possui um programa chamado 
EDLIN, porém ele é tão chato que nem vale a pena ten- 
tar usá-lo. Uma boa opção é o editor de textos do Si- 
dekick. 

O que importa mesmo é que o editor possa gravar o 
fonte do programa em formato ASCII, para que o mon- 
tador Assembler não se atrapalhe com os códigos de for- 
matação de texto usados pelos editores mais sofisticados. 

Outro programa do DOS que pode ser usado é o DE- 
BUG. Ele possui uma função para assemblar as instruções 
digitadas em mnemônicos. Para algumas rotinas simples 
e para programas pequenos ele é bastante eficiente e me- 
rece ser usado. 

Os exemplos e rotinas que serão apresentados nesta 
série de artigos, daqui para a frente, obedecerão ao pa- 
drão sintático do Turbo Assembler. Para facilitar a con- 
versão para outro tipo de montador, acompanhe o exem- 
plo a seguir: 


mov xb800h 
mov dsax 
ret 
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No Turbo Assembler esta rotina teria que ser escrita, 
no processador de textos, da seguinte forma: 


“MODEL small 
«STACK 100h 
“CODE 

mov ax,0b800h 
mov dsax 
ret 

END 


A seguir seria gravado um arquivo ROTINA. ASM e as- 
semblado como se segue: TASM ROTINA e TLINK RO- 
TINA. Caso não ocorra nenhum erro durante esse pro- 
cesso, o TA criará no disco um programa chamado 
ROTINA.EXE que poderá ser executado diretamente do 
DOS. 

Para o DEBUG, o procedimento seria o seguinte: 


AIDEBUG [ENTER] 

-n rotina.com [ENTER] 

-a [ENTER] 

??22:0100 mov ax,b800 [ENTER] 
777?:0103 mov ds,ax [ENTER] 
?772:0105 ret [ENTER] 
?772:0106 [ENTER] 

-rex [ENTER] 

CX 0000 

: 6 [ENTER] 

-w [ENTER] 

Writing 0006 bytes 

-q [ENTER] 


O ideal, para se obter bons resultados e poucos abor- 
recimentos, é estudar a fundo a operação do montador 
escolhido a fim de transpor com facilidade os problemas 
referentes às informações e dados usados pelo programa. 


Note, no exemplo anterior, como cada programa tra- 
tou o valor B800h. O DEBUG dispensou o h e o Turbo 
Assembler exigiu um zero antes do B. Esta característica 
do TA decorre do fato de que um valor iniciado por uma 
letra pode ser confundido com um label ou rótulo. Isto 
pode ser passível de críticas - afinal o ser humano é bas- 
tante criativo para chamar um label de B800h, porém o 
software não possui essa característica intrínseca, então 
torna-se de vital importância deixar bem claro quando 
uma referência se trata de um valor numérico. 

Outra vantagem de se conhecer bem o montador é 
que esses programas possuem tantas pseudo-instruções 
e tantos parâmetros operacionais que, à primeira vista, 
tornam o Assembler do 8086/88 algo assustador. Volto 
a insistir: para desmistificar o PC será necessário com- 
preender muito bem o que é próprio da máquina e o que 
é convenção do software. 


MAS AFINAL, ONDE FICARÁ O PROGRAMA 


Na edição anterior vimos como está organizada a me- 
mória do PC, os registradores e o modo de endereça 
mento (segmento e offset). 
Se você já compreendeu 
esses fundamentos pode 
prosseguir a leitura, caso 
contrário recomece tudo 
novamente, pois sem essas 
informações devidamente 
assembladas pelo cérebro, 
tudo mais parecerá pura 
fantasia. 

Os programas que usa- 
mos no nosso dia-a-dia e 
aqueles que criaremos es- 
tarão em algum lugar da 
área disponível para o usuá- 
rio, isto é, entre o endereço 
00500h e 9FFFFh. É difícil 
precisar exatamente o iní- 
cio desta área, pois ele de- 
pende do tamanho do 
DOS utilizado. O quadro a 
seguir dá uma idéia apro- 
ximada de quanto cada 
versão do DOS gasta de 
memória: 





“COM 


Versão Memória usada pelo DOS 
1.1 12.10 kbytes 
2.0 24.00 kbytes 
3.0 36.01 kbytes 


Para que um programa funcione adequadamente os 
registradores de segmento deverão apontar para as suas 
áreas correspondentes, ou seja, o CS (CODE SEGMENT) 
deverá indicar o início do segmento onde estão as ins- 
truções executáveis do programa; o DS (DATA SEG- 
MENT) deverá indicar o início da área de dados usada 
pelo programa; e o SS (STACK SEGMENT) deverá apon- 
tar para o início do segmento usado como stack da má- 
quina. 

Se isso ainda não entrou na sua cabeça, considere o 
seguinte: sempre que uma instrução fizer referência, ou 
apontar para uma outra instrução (CALLs e JUMPs), o 


em já tem 
alguma prática em 
Assembler Z80 
encontrará um 
ambiente 
muito familiar 
nos programas 
com extensão 


endereço desejado será obtido pelo valor do offset con- 
tado à partir do início do segmento apontado pelo CS. 
Sempre que uma instrução fizer referência a um dado 
(ler/gravar num determinado endereço) o endereço será 
obtido pelo offset contado à partir do início do segmento 
apontado pelo DS. O mesmo vale para as operações com 
o stack (PUSHs e POPs), caso em que o apontador usado 
será o SS. 

As rotinas de carregamento de programas do Sistema 
Operacional se incumbem de posicionar os registrado- 
res de segmento nos seus devidos lugares, pois esses en- 
dereços dependerão de onde o programa estará sendo 
carregado. Como isso é automático, resta saber onde es- 
tará ou qual será a primeira instrução executada por um 
programa, para então iniciarmos a criação dos nossos. 

Quem já tem alguma prática em Assembler Z80 
(principalmente em CP/M) encontrará um ambiente muito 
familiar nos programas com extensão .COM. Isto por- 
que esse tipo de programa mantém todos os segmentos 
num mesmo bloco de 64 Kbytes, ou seja, todos eles apon- 
tam para o mesmo endereço inicial. Nestas circunstâncias, 
tudo se passa como se o micro só tivesse 64 Kbytes de 
memória. 

Quando este tipo de pro- 
grama é criado, os primei- 
ros 256 bytes são reserva- 
dos para o prefixo do 
programa e o endereço ini- 
cial de execução é estabe- 
lecido em 100h. A partir daí 
tudo corre por conta do 
programa do usuário. 

No caso dos programas 
«EXE a estrutura fica um 
pouco diferente, porém 
também nesse caso é reser- 
vada uma área para O pre- 
fixo do programa. A seguir 
são definidos os outros seg- 
mentos e o endereço da 
primeira instrução do pro- 
grama será exatamente o 
endereço inicial do seg- 
mento de código. 

Na verdade o programa- 
dor não precisa se preo- 
cupar muito com isso, uma 
vez que esses procedimen- 
tos e códigos são automaticamente gerados e manipu- 
lados pelo montador durante a criação do programa, ou 
pelo Sistema Operacional, quando o programa é execu- 
tado. 





ESCREVENDO PROGRAMAS E ROTINAS 


Uma vez compreendido como é e onde fica um pro- 
grama na memória e como cada segmento deve ser de- 
finido no montador utilizado, o passo seguinte é sair 
criando programas e rotinas. Mas para que tudo funcione 
perfeitamente será necessário antes traçar alguns ma- 
pas e escrever alguns guias de sobrevivência. 

Lápis e papel na mão, a primeira providência é tradu- 
zir em palavras o que exatamente se quer criar em lin- 
guagem de máquina. Lembre-se: em Assembler as coi- 


sas não são como no Basic, onde para imprimir alguma 
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voisa no vídeo basta fazer um PRINT. Em Assembler, para 
escrever uma mensagem na tela será necessário lançar 
mão de uma rotina que, vista fora do seu contexto, não 
possui nenhum elemento que a caracterize como uma 
rotina de impressão. Por causa disso é que o programa- 
dor Assembler deve ser muito mais meticuloso e racio- 
nal do que os outros programadores - para se salvar na 
selva de instruções e mnemônicos de um programa. 

Uma vez definido o tipo de programa a ser criado, 
parte-se para a criação das rotinas básicas, ou seja, im- 
pressão na tela, acesso ao teclado, gravação em disco, 
etc. 

Como primeira providência, devemos estabelecer a área 
de dados que será utilizada pelo nosso programa e cui- 
dar para que os segmentos de dados efetivamente apon- 
tem para ela. Assim, para colocar a letra 'A' piscante na 
primeira posição da tela, por exemplo, acessando a me- 
mória de vídeo diretamente, devemos proceder da se- 
guinte forma: 


mov ax,B800h Aponta o segmento de dados 
mov ds,ax para a área de vídeo 


Note que o registrador de segmento de dados (DS) 
não pode ser manipulado diretamente. Em Assembler 
8086/88 é necessário antes carregar o registrador AX com 
o valor que se deseja para início do segmento e então 
transferi-lo para o registrador de segmento desejado. O 
que nossa rotina fez nada mais é do que apontar o seg- 
mento de dados para o início da área de vídeo. 

Seguindo com o nosso programa, podemos agora usar 
o registrador BX como um apontador de endereços. Veja 
como: 

mov bx,0 «BX = endereço zero da área de vídeo 

Para acessarmos então o endereço zero do segmento 
de dados com a letra 'A' piscante, basta gravar o código 
ASCII da letra nesse endereço e o atributo no endereço 
seguinte: 


mov al,41h «AL =código ASCI do caracter A 
mov [bx],al «Coloca o caracter no vídeo 

inc bx «Próximo endereço 

mov al,87h «Código do atributo 

mov [bx]l,al «Coloca os atributos no vídeo 
ret «Retorno ou final do programa 


Usamos o registrador BX para endereçar a área de ví- 
deo. Na verdade, este trecho do programa poderia ter sido 
escrito da seguinte forma: 


mov BYTE PTR [bx+0]41h 
mov BYTE PTR [bx+1187h 


ou ainda 
mov WORD PTR [bxL8741h 


Nestes dois exemplos alternativos o registrador BX con- 
tinua com sua função de apontador, porém o conteúdo 
dos endereços é obtido diretamente, sem intermediação 
do registrador AL. 

As palavras BYTE PTR e WORD PTR são necessárias 
para especificar o tipo de dado que será manipilado pelo 
registrador BX: se um byte ou se dois bytes (WORD). 
Outro ponto a destacar é que os registradores do 8086/88 
aceitam a indexação tal qual os registrdores IX e IY do 
Z80. E mais ainda, podem ser usadas outras formas, 
como: 


mov BYTE PTR [bx+di+5]41h 


Outra mágica possível com o 8086/88 é acessar dire- 
tamente um endereço, da seguinte forma: 


mov BYTE PTR [0000h]41h 
mov BYTE PTR [0001h1,87h 


Isto produz o mesmo efeito que os procedimentos an- 
teriores, ou seja, coloca uma letra 'A' piscante no topo 
da tela. O endereçamento direto é um recurso muito útil 
para os procedimentos de inicialização das variáveis de 
um programa. 

O exemplo da letra piscante, em Turbo Assembler, po- 
deria ser completado se segue: 


-MODEL small 
-STACK 100h 
“CODE 
mov 
mov 
mov 
mov 


ax,0b800h ,Segmento de dados 
dsax 

bx,0 «Endereço zero 

BYTE PTR [bx+0141h Coloca a letra A 


mov BYTE PTR [bx+1187h Coloca o atributo 
mov ah,4Ch «Encerra a operação 

int 21h ;e retorna ao DOS 

END » 


COMPLICANDO AS COISAS 


Devemos admitir que colocar um “A piscante no ví- 
deo não representa um esforço sobrenatural de progra- 
mação, mas já dá para sentir o gostinho. Vamos então, 
seguindo essa mesma linha, criar um programa que torne 
todas as letras “E” do vídeo piscantes. 

Se você não conhece as características do vídeo do 
PC, principalmente a placa CGA, MICRO SISTEMAS pu- 
blicará na próxima edição uma matéria sobre esse assunto. 





PROGRAMAS PROFISSIONAIS 
PARA MSKX E PC 


LINHA MSX 


Contabilidade Profissional Completa em Dbase Il Plus - 100 BTN's 
Controle de Estoque Profissional em Dbase Il Plus - 30 BTN's 

Super Conversor de Arquivos - Basic - Dbase - 20 BTNS 
Supershapes 1, 2 e 3; Para Graphos Ill e Page Maker - 14 BTN's cada 
EVA.: Editor de Vinhetas Animadas - 30 BTN's 

LS,D.: Letters Special Designer - 20 BTN's 

Mala Direta Plus - 30 BTN's 


SOLICITE CATÁLOGO 


LINHA PC 
Agenda Profissional c/ Mala Direta e Editor de Textos - 300 BTN's 
Contabilidade Profissional Completa - 300 BTNS 
Agenda Política c/ Mala Direta e Editor de Textos - 300 BTN's 


Programas de Domínio Público e Shareware: Solicite Catálogo 


Pedidos através de Cheque Nominal ou Vale Postal à: 


NEWDATA INFORMÁTICA E SISTEMAS LTDA. 
Rua José Benfica, 167 - CEP 79001 - Campo Grande-MS 
Caixa Postal 1049 - Telefone: (067)761-3425 








Em primeiro lugar, devemos considerar que uma tela 
possui dois mil caracteres e dois mil atributos (25 linhas 
por oitenta colunas). O que teremos a fazer é vasculhar 
esses dois mil caracteres à procura dos códigos hexa- 
decimais 45h (letra E). 

Quando encontrarmos um código 45h, o endereço se- 
guinte deverá ser configurado para atributo piscante 
(código 87h). O programa todo em TA poderia ser algo 
como o que se segue: 


“MODEL small 

-STACK 100h 

«CODE 

mov ax,0b800h ;Segmento de dados 

mov dsax 

mov bx,0 - Endereço zero 
TESTE: 

mov al, [bx] ;Obtém o código do caracter 

emp al,45h «Verifica se é a letra E 

inz TESTO «Salta se não for 

mov BYTE PTR [bx+1]87h | ;Coloca o atributo piscante 
TESTO: 

add bx,2 ;Salta dois endereços 

cmp bx,4000 ;Verifica se já vasculhou todo o vídeo 

inz TESTE 

mov ah,4Ch «Encerra a operação 

int 21h se retoma ao DOS 

END 


Veja como as comparações foram feitas. O 8086/88 
aceita, para a mesma instrução (CMP) dois tipos de da- 
dos: bytes e words. Os desvios condicionais (JNZ) estão 
relacionados com o ZERO FLAG, ou seja, o flag que será 
setado caso a operação efetuada resulte em zero. Uma 
comparação nada mais é do que a subtração dos dois 
valores envolvidos, sem contudo alterar qualquer um de- 
les. Apenas os flags sinalizam o resultado da comparação. 

Evidentemente existe mais de uma forma de executar 
a mesma tarefa e uma alternativa mais interessante, sem 
dúvida nenhuma, seria automatizar o loop de testes. Veja 
como: 


“MODEL small 
-STACK 100h 
“CODE 
mov 
mov 
mov 
mov 
TESTE: 

cmp BYTE PTR [bxl45h 
jnz TESTO 


ax,0b800h ;Segmento de dados 
dsax 
bx,0 
cx,2000 


+ Endereço zero 
; Quantidade total de testes 


;Verifica se é letra E 
«Salta se não for 


mov BYTE PTR [bx+1187h | ;Coloca atributo piscante 
TESTO; 

add bx,2 «Salta dois endereços 

loop TESTE 

mov ah,4Ch + Encerra a operação 

int 21h ;e retorna ao DOS 

END 


Note como o 8086/88 permite até mesmo uma com- 
paração entre um valor e um endereço apontado por um 
registrador. A automação da operação ficou por conta 
da instrução loop e do registrador CX, que define 


quantas vezes o loop será executado. Ao terminar, evi- 
dentemente, CX conterá o valor zero. 


EFEITOS ESPECIAIS 


Uma vez compreendido o que acabamos de executar, 
está na hora de experimentar vôos mais altos. Vamos criar 
um programa para apagar o vídeo de uma forma dife- 
rente (certamente você já viu este efeito em micros da 
linha TRS 80). O objetivo será decrementar cada carac- 
ter até que seu código seja igual a 20h, ou seja, o código 
de espaço. 

O loop de testes só terminará quando todos os carac- 
teres do vídeo forem iguais ao espaço. 


-MODEL small 

-STACK 100h 

“CODE 

mov ax,0b800h ;Segmento de dados 

mov dsax 
TESTE: 

mov al,0 ;Flag sinalizador 

mov bx,0 «Endereço zero 

mov cx,2000 + Quantidade total de testes 
TESTO: 

emp BYTE PTR [bx]20h «Verifica se é espaço 

iz TEST1 «Salta se for 

dec BYTE PTR [bxl ;Decrementa caracter 

mov al,1 ;Sinaliza o flag 
TESTI: 

add bx,2 «Salta dois endereços 

loop TESTO 

cmp al,0 ;Checa se houve algum caracter 

inz TESTE valterado 

mov ah,4Ch ;Encerra a operação 

int 21h ;e retorna ao DOS 

END 


Não há nada excepcional com este programa, a não 
ser o fato de se usar um registrador (AL) como sinali- 
zador - ou seja, sempre que houver a decrementação de 
uma letra, esse registrador assumirá o valor 1. No mo- 
mento em que AL, após uma varredura completa do ví- 
deo, não acusar nenhum decremento, então a operação 
chegou ao seu final. 


DE AGORA EM DIANTE 


Se você “pescou' bem o que foi exposto neste artigo, 
já deve ter concluído que basta saber o que cada instrução 
do 8086/88 faz para poder criar programas cada vez mais 
complexos. É isso mesmo - e o passo seguinte é encon- 
trar um bom manual do processador da INTEL (qualquer 
livro sobre Assembler publica uma tabela completa das 
instruções). 

Porém, se todos os seus recursos para investir em co- 
nhecimentos técnicos ficaram bloqueados no over, pu- 
blicaremos a partir da próxima edição uma microficha con- 
tendo as instruções do 8086/88. Outra novidade, para 
complementar a série de artigos sobre Assembler no PC, 
será a coluna ROTINAS EM ASSEMBLER. Nela você terá 
todo mês uma rotina comentada passo a passo. 

Com tudo isso, você não precisará mais “temer” o seu 
micro. Até lá, então. m 
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CLBC 2.0 





Softcad 
IBM PC 


Mais do que um simples compila- 
dor para dBase III, o Clipper tornou- 
-se conhecido como uma versátil fer- 
ramenta de programação para as mais 
diferentes finalidades. Imagine ape- 
nas uma aplicação que não possa ser 
desenvolvida com o auxílio desta lin- 
guagem: se você pensou em progra- 
mas que utilizam gráficos sofisticados, 
como os da área de CAD/CAM, er- 
rou. Pelo menos no que depender da 
Softcad, uma empresa formada por 
engenheiros e professores da Escola 


Politécnica da USP, especializada em 
CAD/CAM e computação gráfica. A 
Softcad comercializa duas bibliotecas 
compugráficas, o BCe o CLBC, que 
permitem ao programador incorporar 
recursos gráficos avançados em suas 
aplicaçãoes desenvolvidas nas lingu- 
agens C e Clipper, respectivamente. 

A Softcad está anunciando agora 
o lançamento da versão 2.0 do CLBC, 
a qual permite o desenvolvimento de 
aplicativos de CAD sob medida, que 
geram e interpretam diretamente ar- 
quivos de dados padrão dBase. A 
nova versão, além disso, traz vários re- 
cursos extras e algumas inovações até 





RECURSOS DO CLBC 2.0 


- Manipulação de janelas 

- Geração automática de gráficos 
comerciais (barra, torta e crono- 
grama) 

- Geração de gráficos primitivos 
(linha, marca e circunferência) 
- Mapeamento de coordenadas 
- ZOOM IN/ZOOM OUT 

- Saída para plotter e impressora || 
- Controladores para placas grá- 
ficas CGA, EGA e Hércules 

- Controladores para dispositivos 
gráficos especiais sob enco- 
menda 








mesmo em relação aos similares es- 
trangeiros (veja o box). 

O CLBC 2.0 é complementado 
ainda por um módulo para captura de 
imagens de outros programas gráfi- 
cos e por um módulo explicativo que 
ensina ao usuário como utilizar o pro- 
grama. 





MAXXIFORMA 


Maxxirede Informática 
IBM PC 





O preenchimento de papéis como 
cheques, faturas e contratos faz parte 
da rotina diária de qualquer empresa. 
Com a crescente informatização dos 
escritórios, nada mais natural que 
buscar automatizar esse processo. O 
principal problema que costuma se 
verificar nesse momento é a grande 
diversidade de tamanhos e formatos 
dos formulários pré-impressos, que à 
primeira vista exigem a criação de um 
programa específico para o preenchi- 
mento correto de cada formulário 
existente. 

Pensando nisso a Maxxirede criou 
o Maxxiforma, um utilitário que pos- 
sibilita o preenchimento dos campos 
em branco de qualquer tipo de for- 
mulário, em folhas soltas ou contí- 
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nuas. Tudo o que o usuário precisa 
fazer é solicitar a impressão de uma 
matriz com linhas e colunas sobre o 
documento especificado, as quais ser- 
virão como referência para indicar as 
posições dos campos corresponden- 
tes. O programa cria então uma pla- 
nilha na tela, apresentando os cam- 
pos para serem preenchidos e 
sincronizando a saída do vídeo com 
a impressora. 

O software pode funcionar tam- 
bém como um sistema de entrada de 
dados, arquivando informações para 
posterior processamento e impressão 
pelo próprio Maxxiforma ou então 
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por outros programas como planilhas 
e gerenciadores de bancos de dados. 
O Maxxiforma aceita a importação de 
arquivos gerados por diversos aplica- 
tivos como o dBase Ill, imprimindo 
seus dados (como uma etiqueta, por 
exemplo) nas posições corretas e com 
os recursos disponíveis na impressora 
em uso. 

Isto assegura não apenas o apro- 
veitamento dos formulários anterio- 
res à automatização da empresa 
como também, nos escritórios já in- 
formatizados, a manutenção de pro- 
cedimentos de programação anterio- 
res à introdução do Maxxiforma. 


MOZART 1.0 


Cibertron Software 
MSX 





Que tal escrever seus programas 
em Basic MSX e executá-los numa 
velocidade que chega, em alguns ca- 
sos, a ser 60 vezes maior do que o 
normal? E se, de quebra, os fontes 
desses mesmos programas ainda se 
tornassem indecifráveis? Pois é exa- 
tamente a isto que se propõe o com- 
pilador Mozart, da Cibertron. 

Por trás do nome de gênio está um 
compilador bastante completo: pou- 
cas instruções do vasto repertório do 
Basic MSX não foram implementa- 
das nesta versão (veja o quadro). Se- 
gundo o manual do programa, tam- 
bém há poucas restrições quanto à 
sintaxe dos comandos. Apenas 
CALL, CIRCLE, COLOR, DRAW, 
LINE, LOCATE, PAINT, PLAY, PUT 
SPRITE e SCREEN devem ter sua 
grafia observada ou escritos com pe- 
quenas modificações. As instruções 


TOPVIEW 


PRO KIT Informática 
MSX 





Crie você mesmo ilustrações para 
palestras e seminários, demonstrati- 
vos de produtos e verdadeiros dese- 
nhos animados. Nem precisa ser ar- 
tista: basta contar com o reconhecido 
talento do GRAPHOS, o mais conhe- 
cido editor gráfico para a linha MSX, 
e com os recursos do PRO KIT Top- 
view, O mais recente lançamento da 
PRO KIT Informática. 

O Topview é um sistema de ani- 
mação gráfica projetado para o usuá- 
rio dos programas da série GRAPHOS 
dar movimento às telas, shapes e de- 
mais desenhos elaborados com o 
GRAPHOS Ill e PRO. O primeiro 


DEFUSR e USR, por sua vez, devem 
ser substituídas por CALL. 

Com exceção dos comandos es- 
pecíficos para edição de programas 
em Basic (LIST, DELETE, etc.) e 
aqueles relacionados coim o armaze- 
namento de programas em fita cas- 
sete (CSAVE, CLOAD...), todos os de- 
mais comandos do interpretador são 
aceitos, inclusive as instruções para 
acesso ao disco. O Mozart opera com 
variáveis inteiras, de simples e de du- 
pla precisão, e admite o uso de todas 
as notações numéricas do Basic, bem 
como seus operadores lógicos e arit- 
méticos. Operações entre strings e 
com números randômicos também 
são permitidas. 

Para que um programa possa ser 
compilado pelo Mozart, ele deve es- 
tar gravado em formato ASCII. O 
compilador gera inicialmente um ar- 
quivo .REL não-executável, que de- 
verá ser submetido a um processo de 
link-edição. Após isso será gerado um 








INSTRUÇÕES QUE O MOZART 
NÃO COMPILA 


ON INTERVAL ... GOSUB 
ON SPRITE ... GOSUB 
ON STRIG ... GOSUB 
ON STOP ... GOSUB 

ON KEY ... GOSUB 
INTERVAL ... ON/OFF 
SPRITE ... ON/OFF 
STRIG ... ON/OFF/STOP 
STOP ... ON/OFF 

KEY (X) ... ON/OFF 











programa .COM, que pode ser exe- 
cutado diretamente e encadeado com 
outros programas compilados. 

Durante a etapa de compilação o 
usuário pode determinar a saída do 
programa na tela ou na impressora, 
e no formato Basic ou mnemônicos 
do Assembler Z80. Qualquer situação 
de erro no programa fonte durante a 
compilação é reportada através de 
mensagens abreviadas. 

O Mozart vem acompanhado de 
uma chave de proteção que deverá 
ser conectada na entrada do joystick 
do micro. Trata-se de um dispositivo 
que visa inibir as cópias ilegais e cujo 
uso, segundo o fabricante, é limitado 
ao compilador. Não é preciso usar a 
chave com os programas compilados. 





PRO KIT 


UTUTÁROS PARA 














passo para a criação deste sistema foi 
a concepção de uma linguagem es- 
pecial de programação gráfica, que fa- 
cilita a adoção das diferentes técni- 
cas de animação no computador e 
possibilita o pleno acesso aos recur- 
sos gráficos do hardware do MSX. 
Esta linguagem, de fácil aprendiza- 
gem, apresenta um importante dife- 
rencial para a aplicação a que se des- 


tina: seus comandos permitem a exe- 
cução imediata, em tempo real, da ro- 
tina de animação recém-criada pelo 
usuário. Isto agiliza a edição dos blo- 
cos que irão definir as trilhas de ani- 
mação, eliminando a lentidão dos pro- 
cessos de compilação e link-edição 
usualmente empregados em progra- 
mas deste tipo. 

O menu de apresentação do Top- 
view é semelhante ao dos demais mó- 
dulos PRO KIT, visando proporcionar 
maior segurança na sua operação aos 
usuários já familiarizados com os ou- 
tros programas desta série. Além 
disso, a instalação do novo módulo 
no disco Master contribui, segundo 
o fabricante, para uma utilização mais 
otimizada de todo o sistema. 
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PROGRAMA 


Dê um toque todo especial em seus programas 








Micro: PC XT 





Memória: 512 Kbytes 


Telas incrementadas vt: os 


Linguagem: BASICA 


em dBase III Ani 











O Juliano Junqueira Assunção 


Quem ainda não perdeu horas na 
frente de um micro organizando um 
menu ou uma tela qualquer em 
dBASE III? E quem não gosta de dar 


























um toque todo especial em seus pro- 80 KEY OFFSDIN CLIP LI) 
ê FERA 190 CL5+G0SUB 1400 
gramas? Pois bem, o utilitário a se- to COLOR? IsLOCATE 2 304PRIKT => GBA SE TELAS; 
guir irá facilitar muito a sua vida. Com ASUEDOLATER 6 SO TPRIN nnei mea ARE DA 
ele você fará suas telas com mais efi- Er E mesitnita:g 
1! i ii 160 LOCATE PRINT *3. do disc 
ds ia Paes Pest 17 LSENE ae astra dai Comte eo ame tr 
A: 180 LOCATE 22,254PRINT 25: 
ES oi escrito em 190 VECINKEVALIF Vine= THEN 190 ELSE ON VAL(VS) BOTO 210,1080, 1190,1300, 154016070 490 
BASIC, sendo utilizado o COMPAQ 200 "-----5 CRIA E/OU EDITA TELA EM NODO TEXTO 
E 210 COLOR 7,0:EL5:0M ERROR GOTO 220:DEF SEG = AMBBOO:BLOAD *TELA.888º,0 
BASIC, o BASICA como é mais co- CURSORIA1 sCURSORV=1:ESTILOS| 
: = 250 PENC(BOS (CURSORV- 151» (CURSORI-11) +24 PPAPEEKAPE) 
nhecido. Após digitar o programa e VESINKEVÊLIF Viee* THEM PORE PE BSPOKE PEM,15:GOTO 240 ELSE POKE PE PESPOKE PEXL,? 
é 280 IF LEFISLNS,1)aCHRS(O) THEM VISIRIGHTA (YA A) ELSE Vigase 
teclar RUN, irá aparecer em seu ví- IF VE=CHRSCIZ) THEM CLS) CURSORI=LsCURSORVAL 
s 270 IF ViS=CHRSCIS) ANÔ CURSORID1 THEM CURSORI=CURSORI- 1: SOTO 230 
deo um menu com cinco opções. 280 IF ViSeCHRS(77) AND CURSORICBO THEN CURSORK=CURSORI+1) GOTO 230 
4 290 TF VIS=CHRSC72) AND CURSORID1 THEM CURSORVECURSORY-1:G0TO 230 
A opção 1 é referente à edição e São TF VIBICARA (OO) AMB CURSGRTC2A THEM CURSORTECURSORV ESGOTO 230 
iacãi i 310 IF Vis=CHRS(72) AMD CURSORVCZ THEM CURSORT=24 
criação de telas. Ainda dentro desta 220 IF VIS=CHRE (80) AND CURSORVA)24 THEM CURGDRV=1 
3 330 IF VISECHRS(TS) AND CÚRSORI=I AND CURSORVSA THEN CURSORV=CURSORY-1:CURSORA=80 
opção temos alguns comandos de SÃO IF VIS=CHRS(77) AND CURSORI=BO AND CURSORVCZA THEN CURSORV=CURSORV+I  CURSORA=1 
i É 550 IP WaDror THEM gosus as0 
manipulação: 360 IE Vin ARENAS) THEM DEF SEG=AHES0O!ESAVE -TELA.SH8* (0 LM1000:GOTO 100] 
exto: 370 IF Y5sCHRE(IS) AND CURSORVEZA THEN CURSORI-I :CURSORV=LURSBRY+13 BOTO 230 
Modo t o: 380 1F HRS (13) AND CURSORY=224 THEN CURSORI=1:CURSORY=1 
390 IF VISCHRS(S) AND CURSORKCTO THEM CURSORE=CURSORIOS 
200 TE YS=CHRELS) AMD CURSORE=D6 THEM CURSOR 
[setas] - movem o cursor MIO IF VENCHRS(25) THEN LOCATE CURSORY, Li PRINT STRINGS(BO,* *)5 


AO IF VAsCHRS(A) THEM GOGUD 540 
7 AJO IF VISECHRS(BS) THEM FOR 1=0 TO (80-CURSORH)02 STEP 23POKE ((BOA(CURSORY- 
[Ctrl] + [L] - limpa tela 21) ,PEERU( (80 (CURSORY-1 162) 619 (CURSORKOZ) 1) SEXTSPOKE (800 (CURSORY-1142) 15, 
S40 TF VIBECHRE(AZ) THEM FOR = (B0-CURSORX) 62 TO O STEP ZIPOKE. (UB00(CURSORVS1) 621 61 +(CURSORIOZ 
PEEKCU(2OS (CURSORV-1) 42) LALEURSORROZI =21) NEXT 
TF VS=CHRS(E) AMD CURSORID TREM LOCATE CURSORY, CURSORIAPRINT * "js CURSORSACURSORE-I 


+I-2+(CURSORIA 








[ESC] - volta ao menu principal 

















460 IF VEsCHRELO) AMD CURSORIC=1 THEM LOCATE CURSORV.CURSORRSPRINT * + 
: AO E ted 2 AMD Vicaoo AND VACENRECSA) THEM LOCATE CURSORY CURSORH PRINT V854 HF CURSORI=>80 
[ENTER] - avança uma linha AMD CURSORVC24 THEN CURSORIo 14 CURSORVACURSORV+L ELSE 1F CURSORI=280 AMD. CURSORVA)24 THEM CURSOR 
XeISCURSORV=1 ELSE CURSORESCURSORESL 
p E 480 Goro 250 
[TAB] - avança cursor cinco posições 490 FOR IaCURSORI TO GOILOCATE CURSORY 13 ELSPEEK((B0A(CURSORY-1)6(1-1)142) 
500 IF ELSA OR ELDI26 THEM PAINT Y84 
à frente São NEXT 
520 TF CURSORVCZA THEM CURSORVSCURSORV+ 
i 530 RETURM 
[Ctrl] + [Y] - apaga a linha do cursor Bão TF REGISROSO THEM Gosua 96 
são 
x SÃO PE» (4890 ICURSORY- 11) + (CURSORK-1)) +24 PPePEERIPE) 
[Ctrl] + [D] - muda para o módulo de BJO VAaIMEEVSSIE Vini? TUCA POVE PE LOIPORE PES, IS GOTO 570 ELSE PORE PEVPPAPONE PEM, 
SãO TE LEFTR(VE,L)aCHRACO) THEM NIGSRIGNTE (NO 1) ELSE 
desenho São IE VIRSCNRSÚTSI AND CURSOR! TRA CURAR Le cuRSÕR 
600 IF Vi4=CHRS177) AND CURSORICGU THEN CURSO 
Ef IE VIBACHRSLT2) ANO CURSORVA THEM CURSOR 
[ins] + Iteclal - insere um caracter TE VIRACARENÃO) ANO CURSORT<ZA THEM CORSORTS CURSOR LESOTO “840 
[Dall col E E VIsO ANO CURSORVA? THEN CURSORVAZA 
- deleta o caracter onde está 1 AND CURSORV= 524 THEN CURSORTA1 
o o o o w AND CURSORI=1 AND CURSORY)I THEN CURSORY=CURSORY-1:CURSORI=GO 
cursor m AND CURSOS AND CURSORVCZA THEN CURSORY=CURSORV +13 CURSORI=1 





1 3) AND CURSOR 
VESCHRE(IS) ANO CURSORY= 


THEN CURSORL= Is CURSORV=CURSORY+1 
24 THEN CURSORI=IsCURSOR=L 





[Back Space] - apaga o caracter an- 
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MEB(2] AND CURSDRICTO THEN CURSDRX=CURSORAAS 
=CHRS(9) ANG CURSORIOS76 THEM CURSORL=AO 
VESCHRE(251 THEN LOCATE CURSORV, 1 PRINT STRINGEIGO,= + 
VESCHRS(A) END CURSORIO! THEM LOCATE CURSORY,CURSORE:PRINT * *;+ CURSORI-CURSORA-L 
HRE(B) AND CURSORECaL THEN LOCATE CURSORV,CURSOREAPRINT * 
2) THEM GOTO 230 
VE="77 THEM LOCATE CURSORY, CURSORK:PRINT CARS CL (ESFILO,1) )5SFOR Iet TO 300;MERT 
VE="ô" THEN LOCATE CURSORY, CURSURESPAINT CHREMCL ESTILO 2) dps 1F CURSORVOL THEM CURSORVALU 
RSORY-I ELSE IF CURSORVCS! THEM CORSORVe 1 
* THEN LOCATE CURSORY, CURSOR K: PRINT CHRSACLESTELO,3) 14 SFOR Ix1 TO SODUNENT 
* THEM LOCATE CURSORY, CURSORKPRINT CHRS(CLIESTILO A) LFsTF CURSORKCa! AND CURSORYSI 
THEN CURSORI=SO :CURSORV«CURSORY-L' ELSE LF CURSORKC! AND CURSORVO= THEM CURSORA=INCURSORY=L ELS 
E CURSORE=CURSORI-1 
290 IF Ybatá* THEN LOCATE CURSORY, CURSOR XSPRINT CHASKCL (ESTILO A) 15 TF CURSORKS=80 AND CURSORVAZ 
4 THEM CURSORLo Is CURSORVECURSORVAL ELSE LF CURSORKaGO BHO CURSORV)=24 THEN CURSORABOsCURSORVAS 
4 ELSE CURSORX=CURSORHOL 
800 IF VE=tS THEN LOCATE CURSORY, CURSORKSPRINT CHRSLCLIESTILO,S) 1; 
BIO IF yE=*1* THEN LOCATE CURSORY, CURSOR KSPRINT. CHRS KCLIESTILO (51); sFOR Tel TO J00:NERT 
820 IF Viste THEM LOCATE CURSORY, CURSORT: PRINT CHRECCL (ESTILO,7) )F:FOR 1=1 TO 30G; NEXT 
30 IF Y6=*2º THEM LOCATE CURSORY, CURSOR KsPRINT CHR$ CCL (ESTILO,2) js IF CURGORVCZA THEN CUASORV= 
URSORVHL ELSE IF CURSORV)s28 THEN CURSOR V=2a 
Bão tF THEN LOCATE CURSORY, CURSOR KsPRINT CHRS CCL (ESTILO, BI 1) 
aso tr THEN LOCATE CURSORY, CURSORES PRINT CHRSCCLCESTILO 9) Dj 
Bão tF THEN LOCATE CURSORY, CURSOR: PRINT CHRSCCL (ESTILO 101); 
870 IF Verte THEM LOCATE CURSORY, CURSORKSPRINT CHRS CCLIESTILO 111) 4 
SEO IF VESCHRE(33) THEM ESTILOS 
890 IF VESCHRE(OA) THEN ESTILO=2] 
900 IF VE=CHRS(35) THEM ESTILOS 
JO IF VESCHRS(36) THEN ESTILO=4 
9RO LF VESEWAR(37) THEM ESTILOS 
930 IF VesCHAS(SA) THEM EsTALO-S 
940 IF YESCHRS(38) THEN ESTELOST 
950 GOTO são 
960 FOR I=1 TO HISREAD CL(I 1) SNEXTEREGISTRO=! 
970 DATA 197,186,201 ,205,206, 188,200,185,204,202,203 
980 FOR I=1 TO HSREÃD CLIZ,T)5MEXT 
990 DATA 191,179,216,196,197,217,192,180,195,193,194 
1000 FOR I=1 TO FisREAD CL EXT 
1OLO DATA 183,186 214, 196215, 189,211,192,199,208,210 
1020 FOR 1=4 TO 1IsREAD CL(A,L)SMERT 
1030 DATA 184,179,213,205,216,190,212,181,198,207,208 
1080 FOR I=l TO HIsELÁS,1)=176:MELT 
1050 FOR t=t TO LICL4G LIL 775HELT 
1060 FOR Iet TO HSCL4P,L)=2195MEXT 
1070 RETURN. 
1080 "=-=="> GRAVAR DADOS 
LOPO ON ERROR GOTO 1170. 
1100 SCREEN 0,0,0:605UB 1600 
110 COLOR 7 LISLOCATE 2,20:PRINT *-- OPCAO 2 = Gravar telas es Disco 
1120 LOCATE 24, T3PRINT * Para voltar ao Menu Principal responda (Enter: para nome do arquivo *; 
ALBO LOCATE 12,7:PRINT * Entre com o nose do arquivo s “;:COLOR 7,2:4=12: 62394 TRe15: GOSUR 1470 
LISO IF R$=t* THEN GOTO 100 
1150 SCREEN OrDEF SEG=LMEGOO: BLORD "TELA 884,0 
tL60 ESAVE R$,0 AHLOOO:GOTO 100 
LATO LOCATE 15, S6LPRINT “Erro !U1SsFOR Ext TO 20003NEXT 
1180 GOTO 1100 
1190 “em===) CARREGAR DADOS 
1200 ON ERROR GOTO 1280 
t210 SCREEM 0,0 ,0:G05UB 1600 
1220 COLOR 7, LISLOCATE 2, 23:PRINT “== OFCAO 3 = Carregi 
1230 LOCATE 24, 73PRINT * Para voltar au Menu Principal r à nome do arquivo 
1240 LOCATE 12, 75PRINT * Entre com o none do arquivo: “;5COLDR 7 2rÃeize Res BOSUE 1670 
250 TF bz" THEN GOTO 100 
1260 SCREEN OSDEF SEG=LHBRGO: BLORD R4,O 
1270 BSAVE “TELA, 448º ,0,2410003GOTO 100 
1280 LOCATE 15,36:PRIMT Erro !!:"3FOR [al TO 2000;NEXT 
1290 GOTO Izió 
1300 “=-=--) GERAR PROGRANA DIASE 
110 ON ERROR GOTO 1520 
1320 SCREEN 0,0,0:GOSUB 1400 
13Z0 COLOR 7, LIALOCATE 2,234PRINT 2-- OPCAO 4 - Gerar prograne em dBASE --*; 
1540 LOCATE 24 7;PRINE *'Para voltar ao Menu Principal responde Enter) para nome do arquivo *; 
1350 LOCATE 12/74PRINT * Ent 4º COLOR 7,234e12s B=40: TH=15+GOSUR 1670 
1360 TF R$="* THEM GOTO 100 
1370 COLOR 7, LISLOCATE 14,7:PRINT * Entre cos prosseguimento + “jaCOLOR 7,2:A=14:8=36: The30-GOSU 
E 1670 
1380 
1390 DEF SEGSLHEGOO: ELOAD "TELA. 843º,0 
1400 PRINTA BASE Ferraentas - Geracao de Telas a 
14LO PRIN 1.3.8. - Corsario — 1989 " 
1420 PRIN 
1450 PRINTAL, *CLEARE 
1440 PRINTOL LPSET TALK OFF" 
1450 FOR 10 TO 2HPRENTOL, "Grp Let;o,L SAY SSCHRSCZAM; 
1460 FOR Tz6 TO 156 STEP 2 
ATO PaPEEXCLLELGO) TI SPRINTOL,CHRS(P); 
4480 NEXTAPRINTAS CARE (34! NERT 
LATO PRINTAL RS 
1500 CLOSER 
1510 6070 100 
1320 LOCATE 15, 36;PRINT “Erro !!t=sFOR fz TO 2000:HEXT 
1830 GOTO 1320 
1540 U=====> FINALIZAR 
1859 SCREEN OICOLOR 7, 23045: LOCATE 12,55PRINT “Confirma saida do sintena (5/4) 
1560 YExINKEVES IE V8=0* THEM ts60 
1870 LF Vster OR V8=tGº THEM LOCATE 441,0, 13:SCREEN SEND 
1580 IF Yasrn* OR VizeNº THEM 100 
1590 GUTO 1560 
1600 *===-> NOLDURA 
1610 COLOR 7,xCLS 
1620 LOCATE E isPRINT CHRS(201) +STRINGE(20,208) eCHRSC LAT); 
1630 FOR tez TO Z8:LOCATE 1 LLPRINT CHRSCLBAI js LOCATE 1,S0LPRINT CHRECIAS)pAMERT 
LAO LOCATE 25,14PRINT CHRS[200) *STRINGS (78,205) +CHRS (188; 
LOSQ LOCATE 3, LaPRINT CHRE(199) *STRINGS(ZO, 1961 OCHRE(IG2I; 
1660 RETURM 
1870 > DEF-IMPUT 
1680 RbsvNsLOCATE A,hs PRINT CHREL9S)prJaO 
1690 VESINKEVSIRE has THEN 1690. 
1700 IF J=TH THEM 1720 
ALOE Vader * AMD VEterto THEN Rshoaya: 
1120 CHRECI3) THEM LNCATE A Res PRENT O = 
1730 CHRECO) THEN IF 110 THEN JaJ-15RSeLEFTS(RS,9) ELSE 1490 
140 IF YS=CURSCDA) THEN LOCATE A RsPRINT STRINOS(ZH,* *);sGOTO tdo 
1750 KWZeTH-JeLsLOCATE A BIPRINT REJCHRSCOS) STRINGS CENT, O =)y 
1750. GOTO 1690 


facilitar o seu manuseio 


+156010 1780 














terior ao cursor 


[Ak] + [num] - (num » 126) preen- 
che a linha de caracteres 


Outras teclas apresentarão no ví- 
deo o seu caracter correspondente. 
Modo desenho: 


[Setas] - movem o cursor 
[ESC] - volta ao modo texto 
[ENTER] - avança uma linha 


[TAB] - avança cursor cinco posições 
à frente 


[Ctrl] + [Y] - apaga a linha do cursor 
[Num Lock] - ativa/desativa cursor 


[LL [IL TT1 [11 Homel [End] 
[PgUp), [PgDn] - desenham quinas 
e ligaduras 


[ILLLICIISLLHITAI, 
[& ]- trocam estilo de linha (7 estilos) 


A opção 2 e a opção 3 não neces- 
sitam de maiores explicações. 
Referem-se ao armazenamento e à re- 
cuperação de telas em disco. 

A opção 4 gera um programa fonte 
em dBASE. Após entrar com o nome 
do programa, será pedido o prosse- 
guimento, ou seja, o rumo que irá to- 
mar o programa depois de apresen- 
tar a tela. Isto é necessário porque o 
editor do dBASE não aceita os carac- 
teres semigráficos utilizados em nos- 
sas telas, o que impossibilita a edição 
das fontes geradas pelo dBASE TE- 
LAS. 

Finalmente a opção 5 encerra o 
programa, voltando ao BASIC ou ao 
sistema operacional, caso o programa 
tenha sido compilado. 

Implementações: 

Para facilitar o manuseio do pro- 
grama você poderá modificar os có- 
digos dos CHR$ () presentes nas li- 
nhas 880 a 940, para que fique mais 
fácil a mudança dos estilos de linha. 

Outra tarefa interessante seria com- 
pilar o programa, utilizando um den- 
tre os vários compiladores BASIC do 
mercado. m 


eee 
JULIANO JUNQUEIRA ASSUNÇÃO é 
estudante da Faculdade de Ciências Eco- 
nômicas UFMG. Trabalha com Basic, Pas- 
cal, dBase Ille C. 
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PROGRAMA 


Mantenha o controle da liquidez doméstica 


PG 





Sistema de orçamento 


doméstico 


[1 Benedito José Barreto Fonseca Jr. 


O Sistema de Orçamento Doméstico 
foi desenvolvido em um computador 
IBM PCe programado em dBase Ill-+. Ele 
é composto por cinco programas e duas 
rotinas que devem ser digitadas e arava- 
das separadamente. O sistema destina- 
-se aos usuários do PC que desejam con- 
trolar seu orçamento mensal através do 
computador. 

O sistema possui dois arquivos: RE- 
CEITAS e DESPESAS. Estes arquivos de- 
verão ter a estrutura em anexo. Ao se ini- 
ciar o sistema, o usuário deverá inserir as 
fontes de receita e as fontes de despesa 
nestes arquivos (ORCAINI); após esta 
operação, o sistema não mais voltará às 
mesmas. Prevendo uma possível mu- 
dança no orçamento de alguns meses, o 
sistema reserva três campos em aberto 


após o final das fontes. 

O sistema armazenará (ORCAINS) os 
orçamentos um seguido do outro, isto é, 
após digitar o orçamento, o sistema co- 
piará as fontes do arquivo e modificará a 
parte anterior de acordo com os dados in- 
seridos. Como se pode notar, não é per- 
mitida a saída após o início da inserção de 
dados. Se o arquivo RECEITAS possui o 
orçamento de MAIO9O, o arquivo DES- 
PESAS também deve possuir o orça- 
mento do mesmo mês. 

O sistema permite a verificação / cor- 
reção dos orçamentos nos arquivos atra- 
vés do programa ORCACOR. Com este 
programa o usuário pode modificar o 
nome da fonte e o seu valor em caso de 
erro. 

O sistema possui opção para a exi- 


Micro: PC XT/AT 
Memória: 512 Kbytes 
Vídeo: CGA / EGA / VGA 


Linguagem: dBase Ill + 


Requisitos: Nenhum - 








bição de quaisquer dos orçamentos con- 
tidos nos arquivos (ORCAORC), tendo 
também como opção o orçamento 
ANUAL. 

Para rodar o sistema, entre no dBase 
Hl+ e digite DO QRCAI. 


OBSERVAÇÕES 


1-O sistema também roda no FOX- 
base+, devendo o usuário apenas mu- 
dar os parâmetros da rotina auxiliar TI- 
MER, levando-se em conta que o FOX é 
mais rápido que o dBase. 

2-0 sistema rodará com maior rapidez se 
estiver em um Winchester. 





BENEDITO JOSÉ BARRETO FONSECA 
Jr. cursa Engenharia Elétrica na Escola Po- 
litécnica da USP. É usuário de um IBM PC, 
onde programa. 


USE RECEITAS 


STEMA DE ORCAMENTO DOMESTICO 
TO JOSE EARRETO FONSECA JUNIOR 


PROGRAMA PRINCIPAL 


ESCAPE DFF 


JAMENTO DOMESTICO! 
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E 12 TO LUC 
SAY “Criacao do Arquivo 


say 


“Inserir dados. 
“Ver/corragir d 
"Orcamentos 


= (a) 


SAY "tecle a opcao desejada, . 
GET OP1 PICTURE "p" 


oprargr 
DO ORCAINS 












DO ORCADRE O 19,16 SAY “Deseja inserir os dados agora? (S/H)->" GET GPL IGT" 
Loop SET COLOR TO W/N 




































































Case preta READ 
DO ORCAFIM IF OPi="No 
RETURN RETURN 
ENDGASE EnpiF 
SET COLOR TO BR/N ++ & 19,16 Say SPACE(62) 
é 19,20 SAY “tecle um numero de 1 a 5.º e 19/16 Say *... PROCESSANDO 2.” 
DO TIMER 60 TOP 
SET COLOR TO W/N STORE Nº TO CZ 
Loo? DO UHILE .NOT. EDFC) 
ENDDO TF FOUVEA=MGUNTH+YEAR 
RETURN 


SET COLOR TO GR + 
& 19,16 SAY "Este arquivo ja 










































+ SET COLOR TO W/N 
& ORCAINI — PROGRAMA AUXILIAR DO SISTEMA DE ORCAMENTO DONESTICO DO TIMER 
+ STORE "5º TO C2 
STORE + TO OP2 EXIT 
STORE "1 TO WH3 EnDIF 
STORE 1 TO NUM SKIP 
DO WHILE WH3=” + ENDDO 
BET COLOR TO 4 g 1F Caes" 
IF ope" 4 RETURN 
STORE SPACE(S0) TO REC ENDIF 
ENDIF STORE 1 TO COUNT 
6 LOC,S SAY STR(NUM Ata. fonte +” GET REC STORE * = TO Wit 
READ so Tor 
TF (REC=SFACE(5O)) 1F mouveam o] 
TE CNim=LO DO WHILE qui=" 
& 19,16 SAY SPACE(S2) SO COUNT 
SET COLOR TO GRe 1 HOUVER= “=====e OR. EOF() 
& 19,16 SAY "Voce necessita de pelo menos UMA fonte. EXIT 
DO TIMER ENDIF 
Loor STORE RECEITA TO REC 
ELSE APPEND BLANK 
& 19,16 SAY SPACE(S2) REPL RECEITA WITH REC, 
SET COLOR TO GR+ STORE COUNT+! TO COUNT 
STORE * * TO OP3 Loor 
& 19,16 SAY "Deseja mesmo finalizar? (S/N)” GET OPS PICT ENDDO 
SET COLOR TO W ENDIF 
READ DO ERASER 
IF Op3e 50 TOP 
Lgor DO WHILE MOUIVEAd= E! 
EnDIF SÉ 
ExIT ENDDO 
ENDIF DO WHILE «NOT. EOF() 
ENDIF SET COLOR TO GR: 
O 19,16 SAY SPACE(6Z) y 86,20 SAY "Insercao de dados orcamentarios - RECEITAS" 
SET COLOR TO GR+ SET COLOR TO 4 
STORE * “TO 0P2 6 19,16 SAY SPACE(62) 
€ 17,16 SAY "Confirma (S/N)->" GET OP2 PICT e 9,20 SAY “MES/ANO:” 
SET COLOR TO 4 SET COLOR TO 6 
READ é 9,29 SAY MOUNTH 
IF Gpamtgr 8 9,32 SAY YEAR 
APPEND BLANK SET COLOR TO 4 
KEPLACE RECEITA WITH REC q 11,20 SAY “RECEITAS” 
STORE NUM TO NUM SET COLOR TO W+ 
STORE * * TO 0F2 w 11,29 SAY RECEITA 
ENDIF STORE O TO VAL 
SET COLOR TO GR+ SET COLOR TO Ww 
O 19,16 SAY “Para finalizar deixe o campo em branco.” é 15,20 SAY "VALOR. .:” GET VAL PICT “amanananaM MA! 
Loop READ 
ENDDO REPLACE VALOR WITH VAL 
STORE 1 TO QurRoS REPLACE MOUVEA METH HOUNTHeVEAR 
DO WHILE OUTROS<4 ser 
APPEND BLANK Loo 
STORE "OUTROS (*+RIGHT(STR(OUTROS),1)+")” TO REC ENDDO 
REPLACE RECEITA WITH REC APPEND BLANK 
STORE QUTROS+1 TO OUTROS REPL HOUVER WITH “mume=" 
EnDpO USE DESPESAS 
RETURN Ê e 19,16 SAY SPACE(62) 
z “ 8 19,16 SAY"... PROCESSANDO 
* ORCAINS — PROGRAMA INTEGRANTE DO SISTEMA DE ORCAMENTO DOMESTICO STORE 1 TO COUNT 
z 
USE RECEITAS 
STORE "= TO MOUNTH 
STORE" » TO vEAR «OR. EOF() 
DO ERASER STORE RECEITA TO REC 
SET COLOR TO GR/N+ ué 
& 19,16 SAY “Para abandonar operacao, deixe os campos em branco.” REPLACE RECEITA WITH REC 
& 6,20 SAY “Insercao de dados orcamentarios! STORE COUNT TO COUNT 
SET COLOR TO W/N too 
€ 9,20 SAY “digite o nes do orcamento...2” SET MOUNTH PICT "tt1= ENDDO 
& 11,20 SAY “digite o ano do orcamento...:” GET VEAR PIC "me ENDIF 
READ Go Tor 
TF MOUNTHES DO WHILE HOUVERAM" E 
EXIT ser 
ENDIF ENDDO 















































19,16 SAY SPACE(62) é 19,16 SAY SPACE(62) 

SET COLOR TO GR + DO ERASER 

& 19,16 SAY "Contirma (S/N) 7º DO WHILE .NOT. EOF() 

SET COLOR TO W/N SET COLOR TO GR+ 

q 19,52 GET C4 PIT “t+ € 6,20 SAY “Insercao de dados orcamentarios - DESPESAS" 

READ SET COLOR TO W 

IF Cie e 9,20 SAY “MES/ANOS" 
EXT SET "COLOR TO 6 

ENDIF + é 9,29 Say MOUNTH 

Loor é 9432 SAY VEAR 

ENDDO SET COLOR TO 4 

TF MQUNTH=! . q 11,20 SAY "DESPESA: 
RETURN SEF COLOR TO Us 

ENDIF 6 11,29 SAY RECEITA 

DO ENASER STORE 00 TO VAL 

€ 6420 SAT * Desejamos informa-lhe que para o perteito” SET COLOR TO 4 

a 6,29 Say + funcionamento do sistema de orcamento” E 13,20 SAY "VALOR. .s" GET VAL PICT omemmnmanna ani 

a 10,20 SAY “eh necessario que os dados a serem computados” READ 

é 12,20 SAY “ dovem sor inseridos em uma o, portanto” REFIL VALOR WITH VAL 

e 1/20 SAY “ nao serah possivel a saida apos o início da” FEPL MOUVEA WITH MOUNTHOVEAR: 

a 16,20 Sar computacao dos dados.” ser 

a 19,16 SAY SPACE (e2) LF .NOT- EDFO) 

STORE * 4 TO OPL Loor 





SET COLOR TO 66+ 
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Complete 
sua coleção 


de MICRO 
SISTEMAS 





va 
82 


80] |81 
8b| |86 
90] |91 















































ESGOTADO 


Não perca esta 
oportunidade! 


Data nasc.: 
no valor 


nominal à ATI EDITORA S.A, referente 


ando o cheque nº 




















às edições assinaladas de MICRO SISTEMAS, 


ao preço unitário de Cr$ 170,00. 


Equipamento: 
de Cr 


ATI 

Análise, Teleprocessamento e 
Informática Editora S.A. 

Rua Washington Luiz, 9 - gr 403 
Rio de Janeiro - RJ - Cep: 20.230 











ExIT 
ENDDO 

APFEND ELANK 

REPLACE MOUVEA WITH» 
us 

RETURN 








E ORCACOR — PROGRAMA INTEGRANTE DO SISTEMA DE ORCAMENTO DOMESTICO 
1 


STORE =» TO uML 
DO WHILE MHle” » 

DO ERASER 

USE RECEITAS. 

STORE" TO MOUNTH 
STORE TO vEAR 


SET COLOR TO GR+ 
& 6,20 SAY "Correcao e verificacao de dados orcamentarios” 
SET COLOR TO W/N 
& 9,20 SAY "DIGITE O MES DO ORCAMENTO...:” GET MOUNTH PICT “item 
& 11,20 SAY "DIGITE O ANO DO ORCAMENTO...:” GET YEAR PICT “gu” 
e 19,16 SAY SPACE(S2) 
SET COLOR TO GR+ 
é 17,16 SAY “Para abandonar operacao deixe os campos em branco. 
SET COLOR TO w/N 
READ 
EXIT 
ENDIF 
STORE * * TO 01 
& 19,16 Say SPACE(S2) 
SET COLOR TO GR+ 
€ 19,16 SAY “Contirma? (S/N)->" GET 01 PICT 
SET COLOR TO W 
READ 
1F oe: 
Loop 
ENDIF 
so Tor 
DO WHILE .NOT. EOF() 
IF HOUVEA=NOUNTH+ YEAR 
ExIT 
ENDIF 
sKiP 
ENDDO 
IF MOUVEASHOUNTHAYEAR .OR. HOUVE R=" 
SET COLOR TO GR+ 
€ 19,16 SAY SPACE(62) 
€ 19,16 SAY “Este orcamento ainda nao foi processado...” 
DO TIMER 
€ 19,16 SAY SPACE(62) 
RETURN 
ENDIF 
SET COLOR TO W/N 
DO ERASER 
DO WHILE MOUVERM "== 
SET COLOR TO BG/N + 
€ 6,20 SAY "RECEITAS 
SET COLOR TO W/N 
€ 9,20 Say "MES/ANOs” 
SET COLOR TO G 
& 9,29 SAY MOUNTH 
€ 9133 SAY vEAR 
SET COLOR TO W 
€ 11,20 SAY “RECEITA, 
€ 13,20 SAY "VALOR. . 
SET COLOR TO W+ 
é 11,29 SAY RECEITA 
e 15,29 Say SPAcE(20) 
€ 13,29 SAY VALOR 
STORE To 0P2 
SET COLOR TO GR+ 
& 19,16 SAY “( ) Avancar. ( 
crure » 
SET COLOR TO EG/N+ 
e 19,17 Say var 
& 19,30 SAY "R» 
19,46 SAY "Cr 
e 19,60 SAY "5 
SET COLOR TO M/N 
READ 
IF 0P2= 














ea 




















STORE RECEITA TO REC 

STORE VALOR TO VAL 

€ 11,29 GET REC 

é 13,29 GET VAL PICI 

READ 

KEPLACE VALOR WITH VAL 
REPLACE RECEITA WITH REC) 








munonannua mm 


ENDIF 
1F OPz=npo 
IF C.NOT. BOFC)) AND. 
SriP 


emouvene 


ENDIF 
TF OUVE; 
sxiP 
ENDIF 
ENDIF 
IF 0P2="s 
Exir 
ENDIF 
ENDDO 
DO ERASER 
7420 SAY “MES ANOS 
SET "COLOR TO 
à 9,29 say noUNTH 
€ 253 Sar vERR 
ser 





28 MICRO SISTEMAS 


) Retroceder. ( ) Corrigár. () Sair,” 


cer 


orz 


Pp 











& 11,20 SAY "CREDITO... Sh 
SUM VALOR FOR MOUVEA=HOUNTHAVEAR TO VALCRE 
SET COLOR TO p6+ 
6 11,39 SAY VALCRE 
SET COLOR TO W 
STORE " * TO CH 
& 19,16 SAY “Qualquer tecla para pro 
READ 
USE bESPESAS 
60 TOP. 
DO WHILE .NOT. EOF() 
IF MOUVEA=HOUNTHSVEAR 
EXIT 
ENDIF 
SKIP 
ENDDO 
DO ERASER 
SET COLOR TO R/N 
06,20 SAY "DESPESAS! 
SET COLOR TO W/N 
DO WHILE MOUVEAM = 
a 9,20 SAY "MES/ANO” 
SET COLOR TO 6 
89,29 SAY MOUNT 
0 9,33 SAY vEAR 
SET COLOR TO W 
€ 11,20 SAY "DESPESA: 
& 15,20 SAY VALOR, 
SET COLOR TO W+ 
& 11,25 SAY RECEITA. 
€ 15,29 SAY SPACE(ZC, 
& 15,29 SAY VALOR 
STORE * « TO OPS 





* GET CH PICT “!" 

















SET COLOR TO 
19,17 Say 
19,30 SAY 
19,46 Say “cr 
R 19,60 SAY vgr 
SET COLOR TO W/N 
READ 
IF op3="c) 
STORE RECEITA TO DES 
STORE VALOR TO VAL 
€ 11,29 GET DES 
13,29 GET VAL PICT “amaummnana. mar 
READ 
REPLACE VALOR WITH VAL 
REPLACE RECEITA WITH DES 
ENDIF 
IF OP3="ar 
SKIP 
ENDIF 
IF OP3="aM 
IF (MouvEAg" =: 
SKIP-1 
ENDIF 
IF HOUVEAm taanamr 
SEIP 
ENDIF 
ENDIF 
IF OP3=tg" 
EXIT 
ENDIF 
ENDDO 
DO ERASER 
STORE * * TO WHZ 
DO WHILE WHZe” 
SUM VALOR FOR HOUVEA=HOUNTH+VEAR TO VALDES 
09,20 SAY *MES/ANO:! 
SET "COLOR TO 6 
€ 9,29 SAY MoUNTH 
09,33 SAY VEAR 
SET COLOR TO W 
8 11,20 SAY “DEBITO.... 
SET COLOR TO R 
0 11,41 SAY VALDES 
STORE * * TO CH 
SET COLOR TO W 
8 19,16 SAY "Qualquer tecla p/ prosseguir.” GET CH PICT “! 
READ 
EXIT 
ENDDO 
ExIT 
ENDDO 
RETURN 


4 














) +AND. CANOT. BOF()) 








É ORCAORC — PROGRAMA INTEGRANTE DO SISTEMA DE ORCAMENTO DOMESTICO 


DO ERASER 
STORE * * TO WHL 
DO WHILE uia » 
SET COLOR TO GR/n+ 
2 6,27 SAY “Apresentacao de Orcamentos” 
& 19,16 SAY SPACES?) 
8 49,16 SAY "Fara abandonar a operacao deixe o campo em branco.” 
SET COLOR TO W/N 
& 9,20 SAY “Orcamentos 
STORE * » TO OPL 
8 9,30 SAY” por mes (M) ou por ano (A) 
READ 
IF QpL=" 
ExIT 
ENDIF 
DO CASE 
CASE gpL= "py 
USE RECEITAS 
STORE * TO MouNTH 
STORE “= 70 vEaR 
€ 11,20 SAY "digite 0 mes do orcamento.:" GET MOUNTH PICT “+! 
8 15,20 SAY "digite o ano do orcamento.:” GET YEAR ICI -gum 


* GET OP4 PICT "! 











- €) Retroceder. () Corrigir. ( ) Saír.” 





SET 0P3 PI 





> 
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LOCAÇÃ 


PC - XT/AT 


MONITORES DE VÍDEO 
IMPRESSORAS 
WINCHESTER 
SOFTWARES 


SCANNER 
DRIVES 
MOUSE 


OLDNEW 


Av. Nilo Peçanha, 50/415 
CEP 20044 - Rio de Janeiro-RJ 


Tel.: (021)220-2653 














SO GAMES 


PC - AMIGA - MSX 2 













SÓ GAMES PC 
AFTERBURNER uscsreecessereioo QD 500,00 
GHOSTBUSTER Il 4D 80000 
RAMBO Ill 20 40000 














ROBOCOP . mana aid 4D 60000 
CRIME WAYVE (C/MAN) .... 8D 2000,00 
INDIANA JONES - AÇÃO »» 6D 1200,00 
SÓGAMES 01 - 5 JOGOS ................ ID 350,00 
SÓGAMES 02 - 10 JOGOS ........... 1D 500,00 





*A cada 10 discos você ganha mais 2 grava- 
ções gratuitamente. 


*Para outros jogos e utilitários, peça catálo- 
go grátis mencionando linha desejada. 


*Os discos não estão incluídos, o preço por 
unidade é Cr$ 80,00. 


«Envie seu pedido, anexando cheque nomi- 
nal em favor de: Sérgio Luis C. Santos. 


“Acrescente Cr$ 500,00 para despesas pos- 
tais, e receba o seu pedido em até 5 dias, VIA 


SEDEX. 


SÓ GAMES 
Cx. Postal 1852 CEP 20001 - RJ. 














Ed 
| 
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SOFTWARE 
E HARDWARE 


Av. Jabaquara, 1598 - Sala 8 
(ao lado do metrô Saúde) 
CEP 04046 - São Paulo-SP 
Fone: (011)581-2739 




















DO WHILE NOT. EOF() 
LF MUUVEA=NOUNTHO YEAR 

E 
ENDIF 





MOUYEMSMOUNTH+VEAR 
es Say SPACE(42) 
SET COLOR TO GR/N+ 

Say “Este arquivo nao existe... 











DO ERASER 

SET COLOR TO GR+ 

é 5,34 SAY “ORCAMENTO- 

SET COLOR TO W 

& 8,20 SAY "nES/ANi 

& 10,20 SAY “CREDITO... 

é 12,20 SAY "DEBITI 

e 14,20 SAY “RESULTADO 

STORÊ MOUNIH+” "+YEaR TO REC 

SET COLOR TO 6 

e 6,29 SAY REC 

SET COLOR TO EG+ 

SUM VALOR FOR MOUVEA=MOUNTHVEAR TO VALCRE 

é 10,41 SAY VALCRE 

SET COLOR TO R 

USE DESPESAS 

SUM VALOR FOR MOUVEA=HOUNTH+VEAR TO VALDES 

& 12,81 SAY VALDE 

VALRES=VALCRE-VALDES 

IF VALRES>O 
STRRES="SUPERAVIT 
SET COLOR TO B6+ 

ELSE 
STRRES="DEFICIT- 
SET COLOR TO R 














ENDIF 
é 14,41 SAY VALRES 
& 16/55 SAY STRRES 






STORE * - TO 0P2 
SET COLOR TO 
€ 19,16 Say “Qualquer tecla p/ prosseguir." GET OP2 PIC“ 
READ 
EXIT 

case 

TO YEAR 
'digite o ano do orcamento.. 





* BET VEAR FICT "uu 


READ 
USE RECEITAS 
SUM VALOR FOR SUBSTR(MOUVEA,4,5)=VEAR TO VALCRE 
USE DESPESAS 
SUM VALOR FOR SUBSTR(MOUVEA,4,5)=VEAR TO VALDES 


DO ERASER. 
SET COLOR TO 6R+ 
€ 6,30 SAY “ORCAMENTO DO ANO * 
SET COLOR TO 6 
€ 6,47 SAY YEBR 
SET COLOR TO 4 
€ 9,20 SAY “CREDITO. 
* 11,20 SAY “DEBITO. 
& 13,20 SAY “RESULTADO. ocrroroos! 
SET COLOR TO B5+ 
é 9,81 SAY VALCRE 
SET COLOR TO R 
é 11,41 SAY VALDES 
STORE VALCRE-VALDES TO VALRES 
1F VALRES>O 
STRRES="SUPERAVIT 
SET COLOR TO E6+ 
ELSE 
SEY COLOR TO R 
STRRES="DEFICIT 
ENDIF 








say vaLRES 
3,33 SAY STRRES 
SET COLOR TO 4 





STORE * * TO OPS 
€ 19,16 SAY “Qualquer tecla para prosseguir,” GET OPS PIC] ni" 
READ 
ear 

ENDCASE 

ENDDO 

RETURN 


ORCAFIM - PROGRAMA INTEGRANTE DO SISTEMA DE ORCAMENTO DOMESTICO 





SAY “este sistema foi desenvolvido por” 
DR TO GR+ 





SAY “Benedito Jose Barreto Fonseca Jr.” 
SET COLOR 10 W 

€ 19,16 SAY "DEIXANDO U SISTEMA... 

DO TIMER 

RE TURN 

CTUIST STRU, 

Structure tor database: 





:RECEITAS. db 
Number of data records: 7 

Date Of last update + 01/29 
Field Field Name Type Width Des 





1 nouvEa Character 5 
2 RECEITA Character o 
VALOR Numerie se 2 


*t Total 44 





= USE DESPESA 
LIST STR 

ructure + 
Field Field Maze Type Maidth Dec 
















Nuserie 19 
Era 
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CONCESSIONÁRIO DE VENDA DE ESPAÇO 
Para Esta PÁGINA L&F DESING 











LIGHT-PEN 
LANÇAMENTO 









Quem tem um MSX 1.0 ou 2.0, não precisa mais de lápis e papel pa- 
ra desenhar. 

Com a LIGHT-PEN você pode fazer seus desenhos diretamente na tela 
da Tv. 

Além disso a LIGHT-PEN pode ser facilmente utilizada nos seus pro- 
gramas em Basic ou Assembler. 

Na compra de uma LIGHTPEN você recebe grátis o programa LIGHT: 
ART para fazer seus desenhos e o programa LIGHT-MENU. 








INFORMAÇÕES SOMENTE PELO TELEFONE (011)296-2015 













Preço de lançamento Cr$ 4.500,00 mais Cr$ 500,00 de despezas pos- 
tais. 


Preço válido até 20/09/90 


Para adquirir sua LIGHTPEM basta enviar Cheque Nominal à 


ANSELMO SALZANI 
Praça Heitor Levy, 30 - Tatuapé 
CEP 03316 São Paulo-SP 








REVENDEDORES 


PLACE TECH GAME OF TIME 

Rua Domingos de Morais, 1786 Cj. 4 Av. Jabaquara, 1598 Sala 8 
CEP 04010 - São Paulo-SP 04042 - São Paulo-SP 
Tel.: (011)575-3087 Tel.: (011)581-2739 


DOMINIO 





SOFTWARE DE 


SHAREWARE * PC-XT E COMPATÍVEIS 





PRODUTOS & 
SERVIÇOS 


COMPRE SEM SAIR 
DE CASA! 


Despachamos via VARIG, VASP, TRANSBRASIL, Correio SEDEX e Rodoviário 
MICROS PC-XTIAT TELEMIKRO: 
Config. 2 drives, 704K/1MB RAM - padrão PS2 c/monitor 
AT286 1 drive, 1MB RAM, Winch. 4 MB, PS2, c/monitor 
Outras configurações XT, AF286, — LIGUE-NOS...... CONSULTE 


PERIFÉRICOS: MONITORES: 
Winchester 30, 40 MB CONSULTE Angra fosf. verde 

Drives 5.1/4 MSX/PC CONSULTE Angra fosf. branco 
Angra fosf. ambar 








IMPRESSORAS: ADO fosf. verde 
ELGIN Ladys80 Add fosf. branco 
O Nasa fosf. verde .... Cr$ BARATO 
EMILIA PO Monitores ADD a cores: CONSULTE 
EMILIA PS MOUSE PIXTAT: 

XMRE INPUT optico 
ESTABILIZADORES: 
SMS RG-800 O SKVA Dindi 
Metron OBKVA GABINETE PIXTAT: 
Outras potências . CONSULTE Iohavelled XT Baby AT 
Nobresks SMSIMETRON CONSULTE  cichavelled XTIAT-286 
METRONISMSIBK .... CONSULTE cichavelled AT386 

Torre AW-602 pl286/386 
DIVERSOS: 
Diskete Verbatim 5.114" 360K FONTES PIXTAT: 


150/197 Watts piXT 
185 Watts slin p/XT/AT 
220 Watts piAT-286 


— SOLICITE NOSSA LISTA COMPLETA — 


Diskete Nashua 5.1/4" 360K 
Diskete 3.1/2" 720K 

Teclado 101 teclas p/XTIAT 

Cabo plImpressora'PC| 

Cabo pifonte de PC 
Componentes eletrônicos plfonte 


NORTRON Comercial Ltda. 


SRTN 702 - Ed. Brasília Radiocenter, sobreloja 43 
o - BRASÍLIA/DF - Tel. (061) 321-3865 e 












qu ="o 














[ PROCESSADORES DE TEXTOS 
E 








PLANILHAS 


d 





BANCO DE DADOS 


| 





UTILITÁRIOS PARA IMPRESSÃO 


- 


GRÁFICOS 









CIÊNCIAS E MATEMÁTICOS 
COMERCIAIS/FINANCEIROS 





















ANTIVÍRUS 











TUTORIAIS EDUCATIVOS 


) 





DESKTOP MANAGER 


d 











GERENCIAMENTO DE PROJETOS 


ã 





JAMSOFT INFORMÁTICA Rua Boavista, 364-CEP 09570 - São Caetano do Sul-SP 


| JoGos 














SOLICITE CATÁLOGO COMPLETO 


(011)743-4143 


UTILITÁRIO 


Proteja seus disquetes contra os vírus 


PG 








O Inspetor PC 


O Vander Roberto Nunes Dias 


Já há algum tempo que os usuários 
do PC vivem sobressaltados com os fan- 
tasmas dos Vírus, que costumam reen- 
carnar na imagem de softs famosos de 
domínio público, e exterminar os conte- 
údos de seus disquetes. Mas ao contrá- 
rio do que muitos pensam, esses peque- 
nos programas que têm capacidade de 
se alastrar e escolher o momento opor- 
tuno para agir malignamente, chamados 
de Virus, não são propriedade exclusiva 
dos piratas, pode ter sido verdade no iní- 
cio da praga, mas hoje, mesmo o mais 
honesto usuário, que só usa cópias ori- 
ginais, está sujeito à contaminação de 
um virus. 

Mas o bicho não é tão feroz assim. 
Existe um outro que também dá muita 
dor de cabeça para usuários de winches- 
ter; os dedos e mãos bobas dos curio- 
sos leigos mais chegados. 


O PROGRAMA 


O programa descrito a seguir se des- 
tina aos usuários que, como eu, já sen- 
tiram o gostinho de um vírus dançando 
no monitor e simultaneamente forma- 
tando o winchester, ou de ter a sen- 
sação, no meio da rua, de que ao che- 
gar em casa encontraria o irmão iniciante 
tentando recuperar o subdiretório apa- 
gado indevidamente. Seu funciona- 


mento é simples, basta carregar o 
INSPDRV.COM e, a partir daí, O INS- 
PETOR toma conta dos acessos ao 
disco, e qualquer pedido de gravação ou 
formatação só será liberado se a tecla 
SHIFT ESQUERDA estiver pressio- 
nada, durante todo o processo dé gra- 
vação. 


AS LISTAGENS 


O programa está dividido em duas lis- 
tagens Assembler: a listagem 1 contém 
o programa que ativa o INSPETOR na 
memória, e a listagem 2, que o desativa. 

Para digitar as listagens, você vai pre- 
cisar do programa | utilitário 
DEBUG.COM, que acompanha seu 
disco de Sistema Operacional. 

Siga então os seguintes passos: 


1- Ponha o disco que contém o 
DEBUG.COM no drive corrente, e 
carregue-o digitando DEBUG; 


2- Após aparecer o Prompt ; ponha um 
disco formatado que possa servir como 
disco teste, e digite E100 [ENTER]; 

3- Digite os códigos hexadecimais da Lis- 
tagem 1 (ignore a coluna dos endere- 
ços), sempre digitando dois dígitos e em 
seguida um ESPAÇO para passar ao 
próximo byte; 








informática entre amigos 


PC/XTIAT 


impressoras, estabilizadores, formulários, discos, fitas, mesas. 
Cibertécnica Informática Ltda. — Rua Senador Dantas, 117 Gr. 1941 — Tel.: (021) 262-8249 










Micro: PC XT 


Memória: 512 Kbytes 






Vídeo: CGA 






Linguagem: Assembler 


Requisitos: Winchester 





4- Ao terminar a Listagem 1, pressione 
[ENTER] para voltar ao Prompt *; 


5- Digite N INSPDRV.COM [ENTER]; 


6- Digite R CX [ENTER] e em seguida 
O47A [ENTER]; 


7- Digite W [ENTER] para gravar a Lis- 
tagem 1; 


8- Digite E100 [ENTER] e entre os có- 


digos da Listagem 2 (ao terminar pres- 
sione [ENTER] para voltar ao Prompt *); 


9- Digite N INSPOFECOM [ENTER]; 


10- Digite R CX [ENTER] e em seguida 
O08A [ENTER]; 

11- Digite W [ENTER] para gravar a Lis- 
tagem 2; 

12- Saia do DEBUG.COM digitando Q 
[ENTERI; 


Se você seguiu corretamente os pas- 
sos-descritos até aqui, carregue o INS- 
PETOR digitando INSPDRV [ENTER]. 
Deverá aparecer a seguinte mensagem: 


INSPETOR DE DRIVES - DEVILS 
SOFTWARE (C) 1990 - VANDER R. 
NUNES DIAS 


INSTALADO. 


Para desativar o INSPETOR, basta in- 
vocar INSPOFECOM. 


* desenvolvimento 
* instalação 
* manutenção 
* software 
* treinamento 
* venda 
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cD 21 33 CO BE DB A3 FO 04 A3 FE 04 1F 8C C8 BE 
CO 33 DB B4 4A CD 21 EB 13 90 BO 80 E6 AO SE SE 
07 1F 5A 59 5B 58 9D EA 00 00 00 00 SE SE 07 1F 
SA 59 58 58 9D F9 9C 58 56 8B F4 J6 89 44 06 SE 
BO 00 E6 AO DO 03 03 CF FA FC 8C D8 ep CO BD 37 
78 05 BE 00 00 B9 00 20 E B8 00 B8 SE D8 F3 AS 
1F 32 FF B4 03 CD 10 FA 89 16 CO 02 Bá OF CD 10 
FA A2 C2 02 3C 03 74 07 32 E4 BO 03 CD 10 FA BA 
0a 09 32 FF B3 23 8D JE 42 04 B9 01 00 FA BA 05 
3c 24 74 1A 3C OD 75 09 FE C6 B2 0A 83 C7 02 EB 
EC B4 02 CD 10 B4 09 CD 10 47 FE C2 EB DE B4 02 
cD 16 FA A8 02 75 OA A8 01 74 F3 E8 09 00 E9 68 
FF E8 03 00 E9 53 FF AO C2 02 3C 03 74 05 32 E4 
CD 10 FA 88 16 CO 02 32 FF B4 OZ CD 10 FA FC B8 
00 B8 SE CO 8D 36 78 05 BE 00 00 B9 00 20 E3 AS 
c3 8D 36 C3 02 8A 04 3C 24 74 07 34 FF 88 04 46 
EB F3 C3 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 DF DF DF DF DF DF DF DE DF 25 3B 38 38 
3B 3B 3B 3B 3B 3B JB 3B JB 3B 3B 38 38 3B 3B 3B 
3B 3B 3B 3B 3B 3B 3B 3B 3B 3B 3B 3B 3B 38 3B 38 
3B 38 3B 3B 3B 38 3B 3B 38 3B 38 d0 FZ ES DF DF 
DF DF DF DF DF DF DF 4C B6 91 8C 8F 9A 8B 90 8D 
DE 9B 9A DE 9B 8D 96 89 9A BC: DF D2 DF BB BA A9 
B6 B3 D8 AC DF AC BO B9 AB AS BE AD BA DF D7 BC 
D6 DF CE C6 C6 CF 4C F2 FS DE DE DF DE DF DE DF 
DE DF 4C DF DF DF DE DF DF DF DF DF DF DF DE DF 
DE DF DF DF DF DF DZ DF A9 9E 91 98 9A BD DE AD 
90 9D 9A 80 88 90 DF BI BA 91 9A 8C DE BB 96 9E 
8c 4C F2 FS DF DF DF DF DF DE DF DF DE 3F 38 3B 
3B 3B 3B 3B dB 3B JB 3B 38 35 3B 38 3B 38 38 JB 
3B 3B 3B 3B 3B 3B 3B 3B JB 3B JB JB JB JB 38 3B 
3B 3B 3B 3B dB 3B 3B 3B 3B 3B 3B 3B 26 FZ FS DF 
DF DF DF DF DF DF DF DF DF B6 91 8C BB 9E 93 9E 
9B 90 DI F2 F5 DB DF DF DF DE DF DF DF DF DF 25 
38 3B 36 38 38 3B JB 3B 36 JB 38 38 36 3B 38 36 
3B 3B 3B dB 3B 3B 3B JB 3B 3B 38 3B 40 FZ ES DE 
DF DF DF DF DF DF DF DF 4C BO DE B6 Bl AC AF BA 
AB BO AD DF 95 9E DF 99 90 96 DF 96 91 8C 68 9E 
93 9E 9B 90 DI 4C F2 FS DF DF DE DF DE DF DF DE 
DF 3F 3B 3B JB 38 38 3B 38 38 36 36 JB 3B 3B 38 
3B JB 3B 3B 38 38 3B 3B 3B 3B 3B 3B JB 38 26 EZ 
F5 DB 25 3B 3B 3B 3B Ad DF 5O DF B6 Bl AC AF BA 
AB BO AD DF AZ 3B 35 3B 3B 3B 38 3B 3B 3B 3B 3B 
3B 38 38 38 
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CANAL 3 INFORMÁTICA 


HARDWARE A500/PC/MSX/TK 






















e MICROS PC-XTIAT | « DRIVES 3 1/2 720 Kb 
* DRIVES 5 1/4 720 Kb + MEGARAM DISK 

* DRIVES 5 1/4 360 Kb + MODENS MSX 

* MEGARAM 256 Kb | + CARTUCHOS 

* IMPRESSORAS * DISQUETES 

* DATACORDER * PERIFÉRICOS PARA A500 

* EXPERT/HOTBIT * PERIFÉRICOS PARA TK90/95 


[ SOFTWARE LINHA MSX ] 


MSX 1.1 e 2.0: JOGOS APLICATIVOS 
E UTILITÁRIOS - ÚLTIMAS NOVIDADES. 


GRAVAMOS JOGOS NA HORA!! 
SOLICITE CATÁLOGO GRÁTIS 


ATENDEMOS TODO O BRASIL VIA SEDEX 
PROMOÇÃO DESTE MÊS: DRIVES E MEGARAM 









* SOS MICRO - POSSUÍMOS ASSISTÊNCIA 
TÉCNICA PARA MICROS E PERIFÉRICOS 
LINHAS PC, APPLE, MSX e TK 


(Orçamento sem compromisso). 








CANAL 3 INFORMÁTICA 
Pça. Benedito Calixto, 66 - CEP 02599 
Caixa Postal 16375 - São Paulo-SP 

Tel.: (011)856-9647 
CORRESPONDÊNCIAS: Caixa Postal 16375 
CEP 02599 - São Paulo-SP 


COMPUTEC INFORMÁTICA 
CP SS TT RR 


PPRESTAÇÃO DE SERVIÇOS 


DESENVOLVIMENTO DE SISTEMAS 
DVENDAS DE EQUIPAMENTOS E PERIFÉRICOS 


GRANDE PROMOÇÃO! MESMO 


CADA 10 JOGOS, GRÁTIS 2 GRAVAÇÕES (SÓCIO) 
CADA 10 JOGOS, GRÁTIS 2 DISQUETES GRAVA- 
DOS (NÃO SÓCIO) 

SÓCIO Cr$ 200,00 NÃO SÓCIO Cr$ 1.500,00 
CAIXA POSTAL 15.265 CEP 01599 

TEL.: (011)280-2760 




















REDI UNIVERSOFT 


INFORMÁTICA 
E COM. LTDA 





RUA CONSELHEIRO BROTERO, 589 - CON. 42 
CEP 01154 - SÃO PAULO-SP 


COMO FAZER PEDIDOS: 


Relacone em uma folha o nome dos produ 





Je você deseja adquirir anexe um 
ara REDI UNIVERSOFT INFORMÁTICA E COMÉR- 
do inicio da primeira página, Se preferir, poderá 
reto. Banco BRADESCO Agência 0130-9 Conta 66.617-6, 
xerox do comprovante do depósito junto com seu pedido. 
antia: 365 dias, 


Fone (011) 825-5240 











20 dias - Ge 





COMPUTADORES - IMPRESSORAS - MONITORES - MODEM - TRANSFORMAÇÃO MSX 2 
MEGARAM DISK 256 - DRIVES 





ÚLTIMO LANÇAMENTO 


A REDIUNIVERSOFT acaba de lançar umanova opção 
aos usuários de MSX da Capital e da Grande São Paulo. 
Trata-se da LOCASOFT. 

Na LOCASOFT você poderá alugar uma série de Produ- 
tos para seu MSX. Já a partir deste mês estará a dispost- 
ção em nossa loja os seguintes Itens: 

- SOFTS em Disketes de 5.1/4 e 3.1/2. 

- CARTUCHOS de Jogos e aplicativosiutilitários. 

= FITAS DE VÍDEO. 


Venha nosfazer uma visita e fique por dentro de todas 
as vantagens que oferecemos, nessa opção Inédita. 


MSX CURSOS 


Estaremos lançando o primeiro curso para computadores do padrão 
MSX, trata-se do curso de INTRODUÇÃO AO BASIC DO MSX. Este cur- 
so visa facilitar O usuário iniciante, ou seja, aquele que acaba de adquirir 
um computador MSX e na maioria dos casos ficam sem saber o que real 
mente o micro poderá oferecer, não só na parte de jogos, como também 
na área profissional. Quais os periféricos que são realmente necessários para 
torná-lo um micro profissional e outras muitas informações práticas. Venha 
conferir. 


VEM Aí 


UNIVERSOFT GAMES VOL. | - O Livro dos manuais, 30 jogos entre 
MSX 1 e MSX 2, Comtelas de todos os jogos, truques, vidas infinitas e po- 
kes, NÃO PERCA RESERVE O SEU JÁ 


UNIVERSOFT 


Os melhores jogos para 
MSX | 
e os mais recentes 
lançamentos 
para MSX 2 












MSX PROFISSIONAL 


A REDI UNIVERSOFT desenvolveu um sistema que | permi- 
tir utilizar seu computador em atividades comerciais, trata-se do 
SCEI (Sistema de Controle Empresarial), que é composto por 
três módulos: Cadastro de Clientes, Contas a Pagar e Con- 
trole Bancário, Para ser utilizado, o sistema requer um drive é 
uma impressora. Faça-nos uma visita e solicite demonstração, 
Ccertamante ele se adaptará as suas necessidades. 















Preço de Lançamento Cr$ 8.500,00 
———————————————— 


CONTABILIDADE MSX 


Para quem imaginava que o MSX fosse apenas um Video Game dis- 
farsado, pode começar a mudar sua opinião, porque acaba de sair do for- 
no, o mais completo Sistema de Contabilidade para os micros do padrão. 
MSX 


Este Sistema conta com manual completo e Suporte ao Usuário. 
O usuário terá os seguintes arquivos 


Cadastro de Históncos - Cadastro de Banco - Cadastro do Plano de Con 
tas - Cadastro de Clientes e Fornecedores - Conta Corrente Clientes e For: 
necedores - Elaboração dos Lançamentos - Emissão do Livro Diário - Ba: 
lancete de Venficação - Demonstrações Financeiras Balanço Geral 


Preço de lançamento Cr$ 9.000,00 
Da 


CENTER SOFT CLUB 


O Center Soft Club desde sua fundação conta com aproximadamen: 
te 1200 sócios, venha você também fazer parte desta família, 


Veja as vantagens que você poderá obter tornando-se sócio do Cen- 
ter Soft Club: 


Descontos de até 60% na compra de Softs (Packs Jogos - Super Packs 
- Super Jogos - Super Aplicativos - Super Utiltários e Jogos para MSX 2. 0) 
Descontos de até 15% em Disketes Virgens. 


TRANSFORMAÇÃO MSX 2 
Cobrimos qualquer oferta 


COLEÇÃO 1 COLEÇÃO 2 
OS MELHORES APLICATIVOS OS MELHORES UTILITÁRIOS 


Agenda Doméstica 
Banco de Dados 

Mala Direta 

Controle de Estoque 

Ed Texto - Unl Word 2 
Contas a Pag/Receber 
Contabilidade Doméstica 
Agenda Anual 

Controle Bancário 
Planilha MSX 


Editor de Música 
Eddy 2 Gráfico 
Study 67 


Borriimo 
Orgão Eletrônico 
Grafic Artistic 
UniAne 

Super Synth 
Simple Asm 
Master Voice 


COLEÇÃO 3 
OS MELHORES 


Aprendendo a Contar 
O Circo Chegou 
Encanto 

Maior ou Menor 
Mentalização 
Motorista Sideral 
Missão Resgate 

Mago Voador 

Abelha Sábia 

Macaco Acadêmico 


Os MELHORES ESUCATIVOS 


Matrizes Complexas 
Eletrecidade 
Quimica 

Geometria 
Bandeiras da Europa 
Matemática 

Fisica 

Estudo das Células. 
Curso de Inglês 
Figuras Geométricas 





Preço de Lançamento CrS 528,00 cada coleção mais o custo do Diskete ou CrS 1.900,00 as quatro, incluindo diskete e um estojo para os 4 Disketes. 


SUPER UTILITÁRIOS 1 
6 Disketes com 10 Softs 


Zapper 1 
Linguagem Cobol 
Linguagem Mumphs 
Toois | 

Ed Music + 56 Músicas 
Unimeia + 39 Telas 
Grafic Master 

Vídeo Texto System 
Prolog 

Letras p/impressora 


fato. UTILITÁRIOS 2 
6 Disketes com 10 Softs 


Zapper ll 
Turbo Pascal 
Tools 2 

Tools 3 

Super Tela 
PrintXPress 
Draw & Pamt 
Tradutor 
Linguagem C 
M Basic 80 


SUPER APLICATIVOS 
6 Disketes com 10 Softs 


Wordstar 64 colunas 
Agenda de Compromisso 
Controle de Estoque 
Contabilidade 

Maia Direta 

Controle Bancário 
Controle de Caixa 
Contas a Pagar 

Folha de Pagamento 
Contas a Receber 


FERRAMENTAS 
1 Disco com 10 Ferramentas 


M 80 [Assembier) 
UNI TESTE (Teste Drive) 

UNI DIVIS [Divisor Soft) 

UNI ORD (Ordenador Diret) 
UNI PROP [Prop Eletronic) 
UNI HEAD DSK [Leitor End) 
UNI HEAD FIT (Leitor End) 
UNI VELOC (Vel Grav Fita) 
UNI STOP [Para Drive) 

UNI COPY (Copador DIFID) 











Preço de Lançamento Crs 4.900,00 cada coleção mais o custo dos Disketes ou CrS 12.000,00 as quatro incluindo Disketes e dois estojos para 20 discos. 
Cr$ 528,00 cada programa mais o custo do diskete. 


COLEÇÃO SUPER JOGOS 1 
10 Disketes com 10 Jogos 


Abadia Del Crime 
Silent Shadow 
Gauntiet 

4x4 Road Racing 
Dragon Ninja 
Pacmania 
Thunder Blade 
Desesperado 
Harrier 

Operation Wolf 


1 
10 Disketes com 10 Jogos 


Strip Poker 
Gartner 
Last Mission 
TNT 


Perry Mason | 

Chess 

Thundertall 
Demonstração MSX 2.0 
Breaker 

Hyd Lyde 








10 Disketes com 10 


COLEÇÃO SUPER JOGOS 2 
Jogos 


Panis Dakar 
Mask Il 

La Herancia 
Flintstones 

Fire Trant 
Renegade Ill 
Kings Valley Plus 
After Barner 

Toi Acid | 
Zanac3 


10 Disketes com 10 Jogos 


RadX 8 

Chopper 

Laydock 

Goody. 

Mônaco 

How Many Robot 
Easy Telloper 
Final Countidow 
JP Wincle 

Flash Gordon 





JOGOS Iniidldo - MEGAROM JOGOS MSX a - MEGAROM 


10 Disketes com 10 Jogos 
Pinguim Adventure 
Salamander 
Kings Valley 2 
Final Zone 
Nemesis 2 
Fantasy Zone 
Ro Mare 2 

Dragon Quest 
Gal'Force 
Digital History 





10 Disketes com 10 Jogos 


Bark Buster 

Kinetic 

Strike Harrier 
Laffaire 
Sha-Ga-Raku 

Word Golfe 
Passengers of Wind 
Play Boy (sexy) 
Michelangelo 
Pooyan 





10 Dliiese cs com 10 Jogos 
Shaliow [Knight Mare 3) 
FI Spirit [Fórmula |) 
Episode 2 
“Jovem Sherlock Holmes 
Fantasm Soldier 
Super Laydock 
Mirai 
Parodius 
1942 
Craze 


Preço de cada Coleção rs 1.000,00 mais o custo dos Disketes ou Crs 6 200,00 as quatro incluindo disketes e mais quatro estojos para 40 disketes. Cada jogo 
Individual Cr$ 123,00 mais o custo do Diskete 


COLEÇÃO MSX 2- NORMAL COLEÇÃO px 2-NORMAL COLEÇÃO Rx 2-NORMAL 





COLEÇÃO MsX 2 - NORMAL 
10 Disketes com 10 Jogos 


Soft Function 
Philips Designers 
Pixel Il 

Tasword 

Tempo Typen 
Topografie 
Topografie Europa 
Aerobics. 

Teste Drive 

Sprite Editor 


Preço de cada Coleção Cr$ 1.000,00 mais o custo dos Disketes ou Cr 6 2000,00 as quatro incluindo disketes e mais quatro estojos para 40 disketes. 
Cada jogo Individual CrS 106,00 mais o custo do Diskete. 


COLEÇÃO MSX 2 - MEGA- 
RAM 1 
10 Disketes com 10 Jogos 


Hinotori 

Ikari Warriors. 
Arkanoid ll 
Family Blliards 
Famicle Parodic 
Dires, 

Ash Ghine 
Romancia 
Boxing 

Tople Zip 


COLEÇÃO MISX 2- MEGA- 
RAM 2 
10 Disketes com 10 Jogos 


Androgynus 
Rastan Saga 
Eagle War 
Regue 


Zanac Excellent 
King Koi 

Lupin 3 R 
Super Rambo 
Xevious 





COLEÇÃO MSX 2 - ME 
RAM3 
10 Disketes com 10 Jogos 


Labiynth 
Zombie Hunter 
Vampire Killer 
Out Run 

1942 

Metal Gear 


Alest 
Moon Moon Monster 
Tokyo 








COLEÇÃO MSX 2 - MEGA- 
RAM 
10 Disketes com 10 Jogos 


Space Manbow 
Super Triton 
Baseball Konami 
Contra 

Marble Madness 
Racine Cars 
Dragon Si 

Drasley Family 
Scambie Formation 
David Bowies 


Preço de cada Coleção CrS 1.200,00 mais o custo dos Disketes ou Crs 6.760,00 as quatro incluindo disketes e mais quatro estojos para 40 disketes. 
Cada jogo Individual Cr$ 140,00 mais o custo do Diskete. 


PREÇO DE DISKETES: 5.1/4 Crs 88,00 cada - 3.112 Crs 295,00 





mes 


PROGRAMA 


Treine cálculo de raiz com este programa 





Raiz quadrada 


O Antônio Pinheiro de Lima 


Quanto é a raiz quadrada de 16535? 
Pode parecer banal, mas se você pa- 
rou para pensar, este é mais um da- 
queles cálculos concebidos sob me- 
dida para serem resolvidos com o 
auxílio de um microcomputador. 

Por que não usar simplesmente 


uma calculadora? Porque na tela do 
seu MSX podemos obter uma apre- 
sentação mais agradável, e assim mo- 
tivar a garotada para a resolução de 
problemas que envolvam o cálculo de 
raiz quadrada. E este o objetivo deste 
programa. 












Micro: MSX 1./2. 
Memória: 64 Kbytes 
Vídeo: P&B / Color 
Linguagem: Basic 


Requisitos: Nenhum 





ESTRUTURA DO PROGRAMA 


As rotinas que compõem o pro- 
grama e as funções por elas desem- 
penhadas estão listadas abaixo, den- 
tro dos respectivos blocos de linhas: 
50-170: Inicialização 
190-290: Cálculo do número abaixo de 
99 
310-330: Desvios para as sub-rotinas 





TOYGAMES 
INFORMÁTICA 


1e 2- MEGARAM 


A TOYGAMES INFORMÁTICA 


dispõe dos melhores jogos 
para o seu MSX, oferecendo 
qualidade profissional, novida- 
des internacionais e garantia 


dos seus serviços. 


SOLICITE 
NOSSO 
CATALOGO 
GRATIS 





SUPRIMENTOS 
eFitas para impressoras 
*Disquetes 3 1/2 e 5 1/4 
* Formulários contínuos 
“Etiquetas 
eLivros e Revistas 


Caixa Postal 30961 - CEP 01051 


São Paulo-SP 


Rua Galvão Bueno, 714 - Conj. 16 


Liberdade - São Paulo-SP 


Próximo Estação Metrô São Joaquim 


FONE (011)277-4878 


PERIFÉRICOS 
eDrives 5 1/4 e 3 1/2 
“Impressoras 
* Modens 
*Monitores 











ACEITAMOS 
CARTÃO 
DE 
CRÉDITO 


ABERTO TAMBÉM AOS SÁBADOS DAS 9:30 ÀS 16:00 HORAS 


PROMOÇÃO 
“A cada 10 jogos 1 grátis 


*Preço especial para 
pacote de 100 jogos 


DESPACHAMOS 
PARA TODO 
O BRASIL 


LaF Desino 













desenha raiz 
prinotra docínal à esq. 


250 DRANR 
250 IFSPfL 


-caleula SP 
320 GOSUBS1O:! Calcula variaveis 
330 GOSUDG4O:! Inprine variaveis 
340 + 





15RIFSULO" 





510 DR=IRe2 
520 R3=STR5( 
530 OuVAL(OS! 





3+SPS:08=n$ 
5) 


((H-1)28) -3:DG3=LEFTS(RS,W-1):R$=DOS:K=IR 


) E LQ=LENÇOS) 


(2): LR=LEN(R$) 


600 PSET(P,L+19),15 
690 PRINTEL 
700 psrm(13: H! 
710, 4:PSET(C1,L),O: 
720 PSET(C48,L49),3 











JOELSEGOTO31O 

AudsPT=30 

FPT=(FPT*5)+PT 
PTSTEPIG 


azo 





LG9 P/ NOVO CÁ 





M=QT1:C=C+8*0T 








360-420: Desenha gráfico da raiz 640-760: Impressão das variáveis 
450-480: Separa as dezenas da direita (posicionadas) 
para a esquerda 780-830: Marca a unidade que não en- 


510-610: Cálculo de todas as variáveis tra em cálculos 
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PROGRAMA 





Desenhe no seu PC em screen 1 





Editor de desenhos 


O Carlos Rodrigues Sarti 


Em combinação com o programa Ani- 
mação Gráfica, publicado na edição an- 
terior de MICRO SISTEMAS, aqui vai o 
programa Desenhar. É através dele que 
você criará os desenhos a serem anima- 
dos pelo programa Animação Gráfica. 

Este programa aproveita os recursos 
gráficos da linguagem GWBASIC para fa- 
zer desenhos na tela em SCREEN 1 (320 
X 200 pontos) e o armazenamento dos 
mesmos é feito em um arquivo do tipo se- 
quencial, cujas características permitem 
as seguintes vantagens: 


- No arquivo sequencial são guardados 
somente os bytes digitados, os bytes de 
fim de linha e o CR; 


- Os dados gravados em arquivo sequen- 
cial podem ser controlados na leitura; 


- Os dados gravados num arquivo se- 
quencial podem ser modificados em qu- 
alquer processador de textos - os casos 
mais usados para esta finalidade são os 
dados relativos a círculos, retângulos, qu- 
adrados e linhas, 


Uma tela gráfica, em screen 1, utiliza 
16 Kbytes de memória para qualquer tipo 
de desenho. O uso do armazenamento 
em arquivos segúenciais permite a ma- 
nipulação de arquivos com tamanho a 
partir de 1 Kbyte. 

Quem utiliza disquetes como arquivo 
de trabalho deve criar um subdiretório 
para arquivar esses desenhos, caso sejam 
em quantidade superior aos 112 arquivos 
permitidos pelo diretório raiz. Se todos os. 
desenhos criados forem inferiores (em ta- 
manho unitário) a 1 Kbyte de memória 
pode-se guardar 343 arquivos em um dis- 
quete, o que equivale a muito mais do 
que 10 telas gráficas armazenadas inte- 
gralmente, se não for utilizado nenhum 
utilitário de compactação. 
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Fig 1: Esta impressão foi feita teclando- 
-se [|] após fazer 4 sobreposições utili- 
zando os itens 2 a 5 no mesmo desenho. 

















Fig 2: Esta impressão foi obtida teclando- 
-se [Il após a sobreposição dositens6e7. 


Mesmo assim, as telas gráficas não 
devem ser desprezadas. Neste programa 
encontramos uma opção criada exclusi- 
vamente para transformar qualquer de- 
senho emtela gráfica. Esta opção torna- 
-Sse necessária nos casos em que 


PG 
Re a] 
Micro: PC XTAT 
Memória: 512 Kbytes 
Vídeo: CGA 
Linguagem: GWBasic 


Requisitos: Nenhum 











precisamos fazer sobreposição de dese- 
nhos ou quando utilizamos uma tela grá- 
fica para referência. Esta aplicação é pos- 
sível durante a edição de desenhos ou 
durante a sua leitura. 

O programa inicia com referências do. 
tipo “desenhe usando setas, HOME, 
END, PG UP, PG DN, C=circulos, 
[ENTER] para apagar, [R] retângulo, [E] 
linha, [ESC] anula, tecle [S] para salvar 
o desenho, vendo o desenho tecle |I] para 
imprimir, [V] sobrepõe desenho em 
edição, [F1] = instruções, tecle algo para 
continuar. Em seguida, será mostrado 
um menu principal com as opções de tra- 
balho: 


1 - Fazer um desenho novo 

2 - Ver desenho normal 

3 - Desenho avesso 

4 - Ver desenho de baixo para cima 

5 - Ver desenho virado 

6 - Ver desenho vertical de baixo para 
cima 

7 - Ver desenho vertical de cima para 
baixo 

8 - Modificar um desenho 

9 - Sair do programa 


Aopção 1 serve para fazer e gravar um 
desenho, as opções de 2 a 7 servem para 
leitura dos desenhos gravados e variam 
de posição conforme o ítem. 

Na opção 1 (edição e gravação) utili- 
zamos as teclas: 


Seta para cima - traça linha vertical para 
cima; 

Seta para baixo - traça linha vertical para 
baixo; 

Seta para esquerda - traça linha horizon- 
tal para esquerda; 

Seta para direita - traça linha horizontal 
para direita; 

[PG UP] - traça linha diagonal para cima 
e para direita; 

[HOMEI - traça linha diagonal para cima 
e para esquerda; 

IPG DN] -traça linha diagonal para baixo 


e para direita; 

[END] - traça linha para baixo e para es- 
querda; 

[ENTER] - para apagar linhas utilizando 
as mesmas teclas anteriores. Para voltar 
a traçar novamente deve-se teclar 
[ENTER] mais uma vez; 

[C] - é utilizado para desenhar círculos 
cujo centro é X e Y, sendo que X pode va- 
riar de 0a 319e Y de O a 199. Ré o raio 
em unidades e C a cor do círculo (3 é 
preto e O branco em monitor monocro- 
mático. Considere preto o pixel verde e 
branco o fundo do monitor, isto é, sem 
nada.); 

[R]- é utilizado para desenhar retângulos, 
sendo X1 e Y1 as coordenadas do vértice 
superior esquerdo e X2 e Y2 as coorde- 
nadas do vértice inferior direito. X pode 
variar de0a 319 e Y pode variar de 0a 199 
e C é igual a cor (idêntico ao item ante- 
rior). No caso das coordenadas X1 e Y1 
serem do vértice superior direito a outra 
coordenada será a do vértice inferior es- 
querdo, mas estes dados serão sempre 
diagonais entre dos vértices de uma fi- 
gura geométrica de 4 lados, o que na ver- 
dade indica que esta é uma opção para 
retângulo ou quadrado; 

[E] - é utilizado para traçar linhas: X1 eY1 
para uma extremidade e X2 e Y2 para a 
outra. Os valores permitidos para X e Y 
SÃO os mesmos da opção anterior e C in- 
dica a cor. 


CARLOS RODRIGUES SARTI — 4990 
RUA 15 DE NOVEMBRO, 491 
AA “CEP 18926 - APIAI — 
DEFSTR 8 


STR INOS(70,CHR$ (2053) 
CHRSC1D6) 
06 LOCATE 6,42:PRINT STRINOS(S,CHRSC176)) 


KaKID, 
KORIKA BID Ra 
21o LOCATE 4: 
200 PRINT Koi 
BSIRUR 
Ku RR 
2ã0 LOCATE 
249 LOCATE di 
a5o PRINT CHRSCAO)CHRSCA7)CHASCAL) + 
SEASCHAS CONCHAS (76) + 

PRINT CHR$C79 JCHRS CBI) CHRS (22) CHAS(B2)CHRS(799CH 
R$(65) CHASCBZICHASC7I) 
270 PRINT CHRSC71 JCHRSCOS)CHAS (69) CHRSCBI)CHRS(22)CH 

CHRSCSICHRSCB2) | 

200 PRINT CHRSCHM)CHRS(73+" 
ASPeHRSCADDo — *, 
290 PRINT CHAS (65 )CHASCHO)CHRSC73)CHRSCASCHRS(73)CH 
R$(32) CHAS CBI) CHRSCDO) 


HEHRIKORUDIR RI Da DU Ns 
GBABSKAR IO BIBI OR URIK KA 
a PRINT STRINOSCSO, CHRS(474)) 


ACHAS Có7) CH 


“CMRS(APICHASCS7)CHRS 


920 PRINT'CR) RETANGULO, (E) LINHA, (ESC) ANULAS 
340 PRINT:PRINT.TECLE (6) PARA SALUAR O DESENHO” 
340 PRINT: PRINT VENDO O DESENHO, TECLE <1) PARA IMPR 


[WI] - para salvar o desenho em tela grá- 
fica; 

[Z] - para visualizar uma tela gráfica; 
[S] - para salvar o desenho especificado 
em disco. Esta opção salva o desenho em 
um arquivo sequencial; 

[ESC] - anula o desenho e volta ao menu. 
Esta opção não anula propriamente o de- 
senho, pois há um desvio para uma rotina 
de confirmação: 'APAGA O DESENHO 
DO DISCO (S/N):”, caso seja teclado 
*S*o desenho será apagado do disco com 
a mensagem 'APAGOU O ARQUIVO ..” 
e se for teclado 'N' a mensagem será 
“PRESERVOU O ARQUIVO .... 





As instruções acima poderão ser ob- 
tidas a qualquer momento da edição 
teclando-se [F1]. Em seguida basta acio- 
nar qualquer tecla para voltar a editar. 

Nas opções de 2 a 7 (ver desenhos), 
podemos observar que eles podem ser 
vistos em várias posições conforme o 
item especificado no menu. Após a apre- 
sentação do desenho na tela, temos as 
seguintes opções: 


[W!] - salva o desenho em tela gráfica; 
[Z] - para ver uma tela gráfica; 

[V] - sobrepor outro desenho: nesta 
opção é permitido sobrepor um desenho 
em qualquer posição (itens 2a 7), sendo 
que podemos combinar sobrepondo o 
mesmo desenho em várias posições ou 


Im: 
356 PRINT-PRINT'CU) SOBREPOE DESENHO” 
366 PRINT PRINT "EM EDICAO OU VISTA CF4) = INSTRUCOES 


270 PRINT:PRINT"TECLE ALGO PARA CONTINUAR" :PRINT:PRI 
NT-PRINT 
300 PRINT CHESC67)*CHRS(97)*CHRSCL14) *CHRS (108) +CHAS 
CLLLIACHRSCL15) ACHRS(32) +CHRS (BZ) SCHRS( 46) ACHRS(63)+ 
CARS (97) CHRSCILA) SCMRS(116) ACHAS CAOS) PRINTS — 199 
e 
290 AS=IPUTSCL 
400 SCREEN 6,0.8-CLS:LOCATE 4.1 
ALO UIOTA 46 PRINT: DE SE MMA REPRINTIPRINT 
420 PRINTS — FAZER UM DESENHO NOVO" PRINT 
456 PRINTI2 — VER DESENHO NORMAL: -PRINT 
440 PRINT 3 É VER DESENHO AVESSO” PRINT 
= VER DESENHO DE BAIXO PARA CIMAT:PRINT 
VER DESENHO VIRADO! PRINT 
VER DES-VERTICAL DE BAIXO PARA CIMA” :P 


aso PRO 
460 PRINT 
470 PRINT 


RINT"7 = VER DES.UERTICAL DE CIMA PARA BAIXO" :P 


MODIFICAR UM DESENHO”:PRINT 
SATR DO PROGRAMA” 
ASCINKEYS-IF AS="" THEM 516 
THEN 420 
THEN 1230. 
= THEN 1760. 
* THEN 2300. 
THEN 2040 
THEN 3390 
THEN 2920. 
THEN 458. 
E THEN CLS: ENO 
S10 IE ABC) A: OR ASO)S2 OR ASO 3 OR AGO A 
SOB" OR ASC)"6 OR ASC)7” OR ABCITE” OR AS()) 
MEN 310 
420 GOTO s40 


EO 


é3e CLOSE GOTO 406 

48 CLS-SCREEM 1 

650 PRINT. INPUT L-NOME DO NOVO DESENHO: * 
os 


LOCATE Li 12:PRINT” 
et 
PSETOR7) 

720 AS INKEYS-1F 

7ã6 IF RIGNTSCAS, 


RIONTSCAS, 


730 TF RIGHTSCAS, 

o ve 

740 IF RIGHTSCAS, THEN xexes 
RIGHTSCAS, 

coro ses 

TF RIGHTSCAS, 


THEM Vey-L0X=x-4-PRINT M4,º7 


THEM eps xexes PRINT 4,79 


sobrepondo outro desenh: 
[I] - para imprimir o desenho: esta opção 
poderá ser substituída se antes de rodar- 
mos o programa, o utilitário 
GRAPHICS.COM do sistema operacio- 
nal for acionado. Neste caso teclamos 
[SHIFT] e [PR SC] juntos para descarre- 
garmos o desenho na impressora; 

[A] - inverte o desenho: nesta opção o 
ponto visualizado em preto passa a ser 
branco e vice-versa. Teclando-se [A] no- 
vamente volta-se ao desenho inicial; 
[ESC] - retorna ao menu principal. 








As informações acima poderão ser ob- 
tidas teclando-se [F1] e em seguida 
acionando-se qualquer outra tecla para 
visualizar o desenho novamente. 

Caso o leitor queira utilizar somente 
um desenho (sem sobreposições), o mais 
interessante é que o centro do desenho 
coincida com as coordenadas iniciais 
X=160 e Y=100. 

O programa utiliza 16.107 bytes de ar- 
quivo binário, 21.599 bytes em arquivo 
ASCIl e 19.712 bytes quando compilado. 





CARLOS RODRIGUES SARTI é técnico 
em eletrô e possui cursos de Sistema 
Operacional MS-DOS e Open Access. Pro- 
grama em Pascal e dBase III. 





+:G0TO 900. 
790 TF RIGHISCAS, LI= O" THEN Yves Xex-A PRINT M5, “4 
coro see 
e TF RIGHTSCAS, L)="0" THEN YaveL:XEKAL PRINT W4, a 
SOTO 968 
TF ASECHAS(A3) THEN Hekm-L PRINT M4, 05" 


* THEN GOSUS 5250. 
soe TF ASIA: OR ” THEN LOCATE 1.1 :PRINT 
5639," ") DEF SEG=SMBBOO BSAVE GS+ PIC" 0,0M 
CATE 1,28:PRINTÍCEL) = 
B90 IF TASTE” THEN GUS! 
TF Nei THEM PSETIX,Y) ELSE PRESETOE,Y) 
OEATE 4,5 PRINTKO Ps PRINT USING AM 
ADSPRINTO Yº CE SPRINT USING ANÃO / 


OL PRINT M4,C1 
Ca PRINT 4,02 
Ca PRINT HÍ,C9 
DEASPRINT Mi CA 
998 CIRCLECCI.C2) C3.C4 
LOCATE 4,4 PRINT STRINGS(39,* *) 
LOCATE 4123:PRINT (FA) = INSTRUCOES” 
RETURM 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
CImECR 
COCATE 
LOCATE 
RETURM 


LLSPRINT STRINGS(39,* “> 
ALA ENPUTEXA: Co RASPRINT ML SRA 
Lig TNpUr' TA PRINT ML ,R2 
7 INPUT xa. PRINT WAS 
INPUT-YZ PRINT RL .RA 
INPUT“ PRINT ni ,Es 
2) = (RI RA) CD 
Le LPRINT STRINGS(39,* *) 
1/29:PRINT“CFI) = INSTRUCOES” 


LOCATE 
LOCATE 
COCATE 
LOCATE 
LOCATE 
COCATE 
CINEGRS 
LOCATE 


ALLPRINT STRINOSCA9,* *) 
RESPRINT Us.R4 
RE PRINT ML 
R3 PRINT Mi 


EEN 4 PRINT: INPUT"2-VER QUAL DESENHO: 


4240 OPEM “1º .4,08 
4256 Xeséo: Y=isé 
4240 Net 

á27o PSETCS.M) 


1280 TF EDFÍL) THEN 1450 
á29o INPUT MI,AS 

1308 FOR A = 1 TO LENCAS) 

A310 IF HIOSCAS,A, THEN Yey=1:G0TO 4430 
4320 TF MIDSCAS A LISO” THEN Yayes GOTO 149o 





MICRO SISTEMAS 39 

















JF MIDSIAS A LIaCA THEN Xex-1:B0TO 1430 
TE MIDSCAS (AVL) ré: THEN XaKod GOTO d430 
dE MIDSCAS A Lai?” THEN Yar=d -Xox-s GOTO 
TE MIDSCAS LA AD=79: THEN YeY=8XoXet:GOTO 
TF MIDS(AS LA Aba id THEN Yaros Xox-L:GOTO 
TF MIDSIAS LAVADa03: THEM Vavo Xakot GOTO 
TE MIDSCAS LA 1)=757 THE Naho-t 

TE MIDSCAS A L)=TC! THEN GOSUB 15% 

IF MIOSCAS A 1)="R: THEN GOSUB 1628 

TF MIDSCAS A A)="E* THEN GOSUB 1690 


TF Nei THEM PSETCX.N) ELSE PRESTO. Y) 
NEXT 

Goro 420% 

cLose 

AS=INPUTACA) 

TETAS=A” THEN GOSUM S610 

TF Amt? OR THEN GOTO 5330 
TE ASa NOR Abe "w” THEM DEF SEGA 
c" o ansoso 

ie 'ASacio OR AS=!1: THEN OOSU 4900 
TE AS=c=" OR Ase'2º THEN GOSUS Sos0 
TF ASACHAS(27) THEM AM 

TF Adnia” DR ASaCA” THEN GOSUM 5750 
coro Laje 

INPUT WA«CA 

Input WájC2 

INPUT L;CS 

INPUT Mi.CA 
CIRCLECCÁ E) C3,C4 
RETURN 

INPUT ms,84 

INPUT NLRZ 

ImpUT NAjRS 

INPUT WsjRA 

INPUT Mi LCA 
LINE(RA,RZ)-(83,849.04, 
RETURN 

INPUT usas 

INPUT WLLR2 

INPUT MALAS 

INPUT MS:RA 

INPUT WiCL 
LINECRI,RZ)-(R3,RD,O1 
RETURK 

REY OFF -CLS:SCREEN 1 
PRINT: INPUT-S-QUAL DESENHO (AVES) 
OPEN “1. 1,68 

Xeião vaioo 

Nes 

PSETOR,M) 

TF EOPCS) THEN 200 
INPUT ML, AS 

FOR foi TO LENCAS) 
TF HIDS(AS A 1)= [87 
TE RIDSCAS A 1)a"27 
TE MIOSCAS A L)=Tá? 
IF MIOSCAS A LI=t67 











BSAvE 08 














-.os:eLS 





sg70 
1970 


mHem soro 
THEN Boro 
THEN X=k+L GOTO 497 
THEN KeKCA-GOTO 497 
IE MIDSCAS A 1)=[77 THEN Xexes “gata 
TE MIDSCASLA 1)=29º THEN X=k-1-GOTO 
TE MIDSCASLA AJ=547 THEN X=k+4 GOTO 
TE MIDS(ASIA 4)="37 THEN Xek-1-BOTO 
TF MIDSCASLA 130037 THEN e 

TE MIDSCAS LV 1)="C" THEN GOSUS 





ate 





Rua Julio Rois,845-Porto Velho São Gonsalo- RU 
CEP 24515 Tie. 7/2-8034//208-2546 
















aoio 
ET 
dezo 





aro 
aro 
Er 
2140 
Er 
ares 
aro 


JF MIOSCAS, A.L)=RT THEN GOSUS 2140 

TF RIDSCAS A L)= E" THEN GOSUS 220 

TF Net THEM PSETOKM) ELSE PRESETOLI) 

Mexr 

Goro 1820 

cLosE 

AseIMpUTSCS) 

TE AS=NE THEM GOSUS 3610 
AS=tor OR AS="V THEM GOTO 3330 

AS="U'OR AS=tu" THEN DEF SEGRENGDOO!HSAVE OS 
niág00. 


E OR AseiI: THEN GOSUS 4960 
IF OR AS=Z" THEN GOSUB 5296 
TE ASSCHASC27) THEM 400 

OR AS= A” THEM GOSUB 3750 








INPUT MACS 
InpuT ELCO 

INPUT MALCA 

INPUT WALCA 
CIRCLE(IBN-C4,C2) Ca,cA 
RETURN 

INPUT Ms,R4 

INPUT ME:BZ 

INPUT MLLRS 



































Es 


TREUT MA,8S 
INPUT M4,R2 

INPUT MILRS 

INPUT MAIRA 

INPUT M$LCS 
LINE(a26/R1,82)-(220-82,842,C1 
RETURN 

KEY DFF-CLS: SCREEN 1 

















PRINT IMPUT"A-OUAL DESEMAN (BAI/CIM): “.G8:ELS 
OPEN SI". 1,68 

Keio-Yeigo 

eserex 

TE FOPTL) THEN 2540 

INPUT UL,AS 

FOR fes TO LEMCAS) 

TE MIDS(AS.A.1)="0" THEN Y=r+1:G0TO 2510 

TÉ NIDS(AS/A LI=r2: THEN Y=v-4-GOTO 2510 

TF NIDSCASLALI=TA” THEN 

TE MIOSCAS LA Adaté THEN 

IE MIDSCASLA-1)=:7: THEN 

TF MIDSCASIA 1)="97 THEN 

TE MIDSCAS A L)=]1" THEN Xexes: GOTO 2516 
TE RIOSCAS LA S)=[3: THEN Xox-1 GOTO 2510 
TF MIDSCAS LA L)=:5 THEN 

TF MIOSCAS A LI=[0" THEM 

TF MIDSLAS LA LI='R? THEN 





TE MIDSCAS A L)="E THEN GOSUE 2770 
TE Nei THEN PSETCK,T) ELSE PRESETOK. 1) 
NEXT 


Goro 2340 
eLose 
As=INPUTS CL) 
* THEN GOSUS Sóte 
AS=rvr OR AS="V" THEN GOTO 5330 


AS=ru OR ASe"u” THEM DEF SEG-AMBBOS-NSAVE 08 
-Enasos 

ASOUINOOR ASe"1" THEN GOSUB 4900 

AS="z" OR AS=2º THEM GOSUB S290 
AS=CHRS(27) THEM 480 

ASncar OR AS=A” THEN GOSUB 5756 

Soro 2556 

INPUT WS.Ct 

INPUT MALES 

INPUT WE LES 

INPUT MALE 

CIRELE(I2O-CI ,208-02),C3,C4 

RETURM 

TNeUT 
iwpuT 
Tupur 
INPUT MELRA 
INPUT MA .CA 
LINEC320R1,200-R2)-(220 
RETURN 

TRPUT 
InuT 
INPUT M$:R9 
INPUT MA-RA 














E 
mina 
in 








a.200-n4) 01 











-R3,200-R4).C4 





KEY OFF CLS:SCREEM 1 


















PRINT INPUT" S-QUAL DESENHO VIRADO: *,08/CLS 
OPEN “7º. 4,08 

Xosáo vei do 

PSETOL 

TF EOFCI) THEN 0 

INPUT MLS 

FOR fes TO LENCAS) 

TE RIDS(AS. A. 12787 THEN Yer+s GOTO 050 

dE MIDIAS A iara” THEN V=y-1 GOTO 205 

TF MIOSCASLA LI=0A: THEN KeX-1-GOTO 2050 

TF MIDSCASVA-1)=76" THEN XoX+s -GOTO 3056 

TÉ MIOSCASIA Vidar?" THEN Vevoi -XeX-4 GOTO 050 
TF RIDSCASA 1)="9º THEN Yav+i Xoxes GOTO 

TE MIOS(AS LA Vidar: THEN Vay=A XOX-A GOTO 305% 
JE MIOS(ASIA id=ra: THEN Yar=i Xoxos GOTO 3050 
TF MIDSCASLA 1)=º5? THEN 

TE THEM 

IE = THEN 

TE MIOSCAS A; LI="E" THEN 








THEN GOSUS séso 
TF AS=tvl OR Ase"U" THEN GOTO sazo 
TE AS=UTOR ASe a” THE DEF SEG=BMO 
c”. 9 Endg0o 





asAvE os 


THEN GOSUS geo 
THEN GOSUS 5296 
TF AS=CHRS(27) THEN 496 

TF ASaias OR AS="A” THEM GOSUS 5750 
Goro aee 

INPUT Má ,c1 

INPUT W$.C2 

INPUT M4-C3 

INPUT Má CA 

CIRCLE(CÁ,298-C2) C3.C4 

RETURN 

INPUT us,8t 

INPUT MA:R2 

INPUT W1,85 

INPUT MEjRA 

















zMeuT mt,ct 
LINECAI -200-RZ)-(R3,200-n4),01,8 
RETURM 

INPUT MA .RA 

INPUT ML;R2 

INPUT M4,AS 

INPUT S,RA 

INPUT W$,ES 

LINECRS de 

RETURN 
KEY OFF CLS/SCREEN 1 
PRINT. INPUT" 6-QUAL DESENHO (Vl 
OPEN “E” 

160 V=idd 


RB)-(R3,200-R49.C1 








EMA) “uoR:CLS 





4 
PSETOLT) 
IF EOFA) THEN J420 
INPUT M5,A8 

FOR Aei TO LENCAS) 
TF MIOS(AS,A,1)=[87 
TF MIOSCAS ALA) 

TE MIDSCAS;AL A) 


THEM xex=s 
THEM 
THEN 


coro asse 
Goro sv 
GOTO 359% 








TF MIDSLAS,A, L)nrá THEN coro asve 
TE MIDSCASLA) 1)a:7: THEN VeveL'GDTO 3590] 
TE MIOSCAS,A, 13797 THEN Yey=A GOTO 3590 
TE MIOSCAS LA, L)=tir THEN V=yas GOTO 359 
TE NIOS(AS,AL AJ=ta: THEN Yey-L:G0TO 3590 
IF MIOSCAS.AL LJ=:57 THEN 

TE MIDSCAS,A, 1)=:C7 THEN 





TE MIDSCAS A, LI=SR: THEN 
TE RIOS(AS AL A)avE* THEN 
TF Nei THEM PSETOLT) ELSE PRESETOGI) 
NEXT 
coro asse 
cLose 
As=INPUTS CO 
TE AS=E. THEN GOSUM Sóso 

a Cy THEN GOTO 5330 











TE As=-UcoR as 








cio and 
TE Ager: OR AS=!I! THEN GOSUB AS00 
TE AS=cz: OR As=r2º THEN GOSUB S290 


TE AS=CHRS(27) THEN 400 
TF AS=ca OR ASSTA” THEN GOSUS 5750 
soro 363 

INPUT Wi.C3 

INPUT MS:Co 

INPUT 4,Ca 

INPUT WE ,CA 

CIRELE(C CEO, (208-(01-60))),C3,04 
RETURM 

TRPUT Ms,84 

INPUT WS/RD 

INPUT WS.R3 

INPUT WA ,RA 

INPUT á,C1 








(RA-60)))=(RAF6O, (200-R3-60))) 





























devo INPUT 
S908 LINELRANÃO, (2O0-(R1-60)))-(R4068, (200-(RI-60))) 
o 
ápio reTum. 
3926 KEY OFF“ CLS;SCREEN 4 
3938 PRINT: INPUT" Z-QUAL DESENHO(U.C/BAIXO): *,08:CLS 
á946 OPEN “17,1,08 
dose x=iõo: v=isé 
ap68 Not 
3970 PSETOLI) 
3980 IF EOFCL) THEN 4160 
dove INPUT ML,AS 
FOR hei TO LENCAS) 
TE RIDSCAS A S)=0B? THEN XaX+s :GOTO 4130 
A820 IF HIDSCAS,A.1 THEN X=X-A GOTO 4130 
2038 IF MIDSIASA L)=IA? THEM Yaf=1: GOTO 4130 
TF MIDSCAS/A 1)="6" THEN Yates :GOTO 4190 
MIDSCASLALLI=277 THEN XoXeA-Y=Y=s- GOTO 4430 
MIDSCASIAL1)=29? THEN X=XeA YaY+A. OTO 4430 
MIDS CASA A THEN X=K-A Yo v-A GOTO Ai 
RIDSCASLAL)=car THEN XoX-A-P=V+A “GOTO 4436 
MIOSCAS,A,4)=5º THEN 
MIOSCASLAL4)=C" THEN GOSUR 4260 
MEOSCAS LAI LI=TA? THEN GOSUM 4320 
RIOSLAS A; 1)= "E" THEM DOBUS 4394 


Ne THEM PSETCK.Y) ELSE PRESETOL 1) 
asas NEXT 
Atso GOTO avo 
AL6O CLOSE 

76 AS=INPUTSCA) 

&º THEN GOSUO s640 
OR AS="U” THEM GOTO 5334 
” MEN OEF SEG 4H! 











BSAvE 08 


2º THEN GOSUS 49 
2" THEN GOSUE 5290 
=CHRS(27) THEM 400 

Ca TOR As=A” THEN OOSUM 3730 








a GOTO 4470 
INPUT M$.CA 

INPUT M4,C2 

8 INPUT WA,C3 

8 INPUT N8,CA 

4308 CIRCLE((320-(cavés 

aato RETURN. 

A324 INPUT 

PEER 





DD (EL=60)),C3,CA 





uRA 
ua 





4340 INPUT WE,AS 
ads INPUT MELRA 
á346 INPUT ML, 
4 








LINEC(320-(R2+60)), 
5.C,8 
4300 "RETURN 
a390 INPUT 
aãoo INPUT 
Aaio IwUT 
28 INPUT 
dado INPUT 
AMAS LINEI (IDO (RO440)), (R4-60))=((320-(RA vd 


1-69))=((320-(RA+66)), CHI 








3. (R9- 





AA60 KEY OFF-CLO;SCREEM 4 
4470 PRINT. INPUT "G-NODIFICAR QUAL DESENHO: *,08 
4466 OPEN -17,4,08 
4496 Xetéo-Y=[08-CL5 

Nes LOCATE 1.23:PRINTÍCFL) = INSTRUCOES” 
asto PSETORY) 
4520 1 EOFCL) THEN CLOSE-OPEN “A, 1,05:6070 720 
4530 Input w8,A5 
ASAS FOR A = É TO LENÇAS) 
ásSe TF NIOSCAS A 1a 
AS& IF MIOSCAS A LI= 
ASTO IF MIOS(AS A 1)=" 








THEM Y=y-1:B0TO 4670 
THEN Ya Pi -GOTO 4470 








40 MICRO SISTEMAS 











IF MIOSCAS A, L)="6 THEM Xexes :GOTO 4670 
TF MEDSCAS,AL1)=:7º THEN Vay-t 
TF MEDSCAS,ALL)=º9º THEN Yey-t 
TE MIDSCAS ALL) =": THEN Yayet 
TF MEDSCAS ALL) ="3º THEN Yoyét 


THEM Nehr-1 
THEN GOSUS 474 





TF NEDSCAS A. 1)) 
TF MEOSCAS,AL4) 
TF NIOSCAS,A-L)='Rº THEN GOSUB 474 
TF MEOSCAS ALI ="E THEN GOsUB 4830 
IF Nei THEN PSETCX.T) ELSE PRESETX,Y) 
next 
Goro aszo 
INPUT N4.C4 
INPUT W$,62 
INPUT 4:03 
INPUT M4.CA 
CIRCLE(CÍ,C2),C3,C4 
RETURN 
INPUT Wa RA 
INPUT MLRZ 
INPUT MEIRA 
INPUT MESRA 
INPUT MA iCA 
LINECRA RD) -(R3,R4),EL,8 
RETURM 
INPUT WA,R4 
INPUT MALAZ 
INPUT MLRS 
INPUT Mi,R4 
INPUT W4;C4 
LINE CRI R2)-(R3,849, 04 
RETURN 
DEE Lera:: as m 
uzbT W4,285 
PRINT ML.CHRSC2M; 
PRINT Mi LCHRSCZ7)) “AT sCHRSCO): 
DEF Sec=áHnodo 
FORA = O TO 79 
PRINT ML. CHRSC27); "KT ICHRSCIA4) CHRSCA)) 
=ArBHIEÉO 
FOR Cos TO 100] 
DePCEK (O) “EsPEEXCU+RH200) 
PRINT ML. CHASCE):CHRSCE): CHRS(D) /CHRS(D) | 
80 
NEXT 
PRINT M$, CHRSCS3) /CHRSCAO) 1 
nexT 
PRINT MI, CHASCAS);CHRS(24) /CHRSC27) ;CHRS (50) 50 














LOCATE 29,8:PRINT"TECLE CESC) PARA RETORNAR” 
ASSINKEYS IF ASCICHRS(27) THEN 5970 

RETURN 

GETCO,6)- (249,499),8% 

SCREEM 9,9,0 ÚIDTH BO:CLS:LOCATE 1,26,0,0,0:PRI 
«INSTRUCOÊS DE EDICAO. 

PRINTSETA "ICHAS(2A)" — TRACA LINHA PARA CIMA 








PRINTSETA "ICHRS(25)/" — TRACA LINHA PARA BAIX 





PRINTISETA “ICHRSC26)1" — TRACA LINHA HORIZONTA 


RA DIREITA: 
PRINTÍSETA “/CHRS(27)4" - TRACA LINHA HORIZONTA 
RA ESQUERDA” 

5450 PRINT'TECLA PGUP — TRACA LINHA DIAGONAL PARA CI 
MA E DIREITA: 

5168 PRINT-TECLA PGON - TRACA LINHA DIAGONAL PARA BA 
TXO E DIREITA: 








5470 PRINT TECLA HOME — TRACA LINHA DIAGONAL PARA CI 
MA E ESQUERDA” 
5406 PRINT TECLA END — TRACA LINHA DIAGONAL PARA BAI 
XO E ESQUERDA” 
5198 PRINT TECLA CENTER) — PARA APAGAR LINHA USANDO 





INT TECLA (C) = PARA DESENHAR CIRCULOS: X CEM 
319) =COORDENADA "X" Y CENTRE 6 E 199)=CO0RDE 
NADA “Y” (CENTRO DO CIRCULO); ReRAIO DO CIRCULO; Cal 
DORDENADA DA COR (3=PRETO GsBRANCO) 

5216 PRINT-TECLA CR) — PARA DESENHAR RETANGULO - X1 
IDE 6 À 49) E VI CDE O À 199)=COMRDENADAS “Xº E PY! 
DO VERTICE SUPERIOR ESQUERDO; X2 (DE O A 349) E Y 
2 (DE O A 199)=CO0RDENADAS 7X! E “Y* DO VERTICE INPE 
RIOR DIREITO, CaCOR (J0PRETO QuBRANCO)” 

5220 PRINT-TECLA CE) — PARA DESENHAR LINHA — X1 
“COORDENADAS “X DE UMA DAS ESTRENIDADES: 
YZ=COORDENADAS “X" E "Yº DA OUTRA EXTRENIDADE: 


RLJePRE 0=BRA)” 
PARA SALVAR EM TELA GRAFICA: 


5230 PRINT -TECLA <u) 
S240 PRINTTECLA (2) — PARA OBSERVAR UMA TELA GRAFIC 
= 






























S2se PRINT TECLA (5) - PARA SALVAR O DESENHO ESPECIF 
ICADO EM DISCO” 

5260 PRINT"TECLA CESC) - ANULA O DESENHO E VOLTA AO 
E 





INTO 
AS=INPUTSCA) 
SEREEM 1-PUT (o,0),62:RETURM 
BETIS. 6)-(349.159) [4% 
CLS INPUT" QUAL TECLA GRAFICA: -.15 
DEF SEG=EMB06:BLOAD 154" .PIC” 
S=INPUTS( 1) :CLS:PUT (9,0) AXLOCATE 4,29:PRINTT 
= INSTRUCOES: “RETURN 

8)-(349,199) AX:CLS 

UIDTH' 46 CLS-LOCATE 4,4, 


TECLE ALGO PARA RETORNAR A EDITAR 























esPRIN 





RINTI2- SOR DESENHO NORMAL” :PRINT 
«DESENHO AVESSO” PRINT 

TOESENHO DE BAIXO 

LOESENHO VIRADO” 
TDES.VERTICAL DE 


PRINT 





PRINT'7- SOB. DES.VERTICAL DE CIMA PARA BAIXO” 





AS=INKEYS:IF As=º" THEN S4sO 





Jada TP ASaSE” THEN Sape 
F THEN 3510 

saxo tr THEM 3530 
Fa THEM 








1 THEN 
E AS=:7" THEM 
TF AGO 2" OR ASC 





OR ASCTA" OR ASCTS" OR 








ASOTA OR ASCD:7 THEN 541 
SCREEN 1 CLS" INPUT"SOBREPOE NORMAL-QUAL: *,08:C 


PUT (6,0) AXIOPEM “I7,1,05:G0TO 1250 
SSÃO SCREEN 1 CLS INPUT" SOBREPOE AVESSO-QUAL: *,68:C 














PUT (0.6),4X-OPEN “I7,1,08:G0T0 1798 
SCREEN 1:CLS: INPUT SOBREPOE BAI/CIR=QUAL 





+85 


pur é 
ScREEM 





OPEN “1",1,08:GOTO 23: 
INPUT"SOBREPOE VIRADO-QUAL: *,05:0 





OPEN “I".1,08:GOTO 2970 
INPUT "SOBREPOE V.BAI/CHI 





qual: * 





OPEN “I",1,05:GOTO 3440 
INPUT "SOBREPOE V.CIN/BAI-QUAL: 7,0 


«AXIOPEN “1º,1,08:G0TO ay5o 
(349 499) AZUCLS 
48 ILOCATE 1,140 
“VENDO O DESENHO 

PRINT PRINTISUAS OPCOES SAO; 
PRINT -PRINT:TECLA CU) = SALVA A TELA GRAFICAS 
PRINT PRINTITECLA (Z) — VER UMA TELA GRAFICA” 
PRINT :PRINT:TECLA é) — SOBREPOR DESENHOS 
PRINT PRINTITECLA CI) — IMPRIMIR DESENHO: 
PRINT PRINT'TECLA (A) - INVERTE TELA E DESENHO 
PRINT 
PRINT :PRINTITECLA (FA) = AJUDAS 
PRINT:PRINTºTECLA (ESC) — VOLTA AO MENU" 


ASSINPUTSCI) 





O:PRINTSPRINTSPRINT 














e» Az:RETURM 





SEREEX 6,0, 8:UIDTH 06, 
5790 CLS-LOCATE 3,1.1,3,6 PRINT APAGA O DESENHO “108 
4º DO DISCO (579) - 

5000 AAS=IMEYS IF AS=:” THEN So00 

SOLO IF AAS=S: OR AAS='s” THEN PRINT:PRINTTAPAGOU O 
ARQUIVO -.OS;KILL GS-GOTO 5030 

SEDO TF AASC)"S” OR MASC OSS THEN PRINT:PRINT 
VOU O ARQUIVO “405 

Se30 PRINT PRINT -PRINT'TECLE ALGO PARA CONTINUAR AS 
FINPUTSCA) GOTO 4 








ESER 











CHAMPION SOFTWARE LTDA. 


MSX * MSX 2 * MEGAROM 


NA CHAMPION SOFTWARE LTDA., 
você encontra os melhores jogos, qualidade 
profissional, garantia de seus serviços 
e o melhor prazo de entrega. 


AQUI VOCÊ ENCONTRA SOFTS DA: 
PAULISOFT, SOFTNEW, NEMESIS, 
XSW e o Exelente E. V. A. 


Drives, Caixa de Acrílico para Discos, Disquetes, 


Rua Clélia, 1837 — Lapa 


CEP 05042 — São Paulo — Capital. 
Caixa Postal 11.844 — Fone: (011)65-2030 


Formulários Contínuos, Capas para Equipamentos, 


Livros, etc. 


PEÇA CATÁLOGO GRÁTIS 
OU VISITE NOSSO SHOW ROOM. 


ATENDEMOS TAMBÉM AOS SÁBADOS DAS 9:30 ÀS 15:00 HORAS 








ROTINA 


Imprima suas telas em vários tamanhos 


EE 





Rotina de impressão 


O Munif Gebara Jr. e Ricardo T. Saito 


Que tal poder criar variações na impressão de seus tra- 
balhos? 

Esta rotina para o GRAPHOS Ill versão 1.2 possibilita 
a impressão em vários tamanhos, utilizando-se uma im- 
pressora padrão Epson. 

O método empregado consiste em usar os modos de 
simples, dupla e quádrupla precisão e repetir os bytes en- 
viados à impressora, de modo a produzir diferentes lar- 
guras de impressão. 

A linha 230 do programa contém uma tabela de va- 
lores, onde o primeiro byte corresponde ao código AS- 
CIl que ativa o modo gráfico (K,L,Z) e o segundo, o nú- 


Micro: MSX 1./2. 
Memória: 64 Kbytes 
Vídeo: P&B / Color 
Linguagem: Basic 


Requisitos: Drive 
Impressora 








mero de vezes que o byte é repetido. No nosso exemplo, 
os valores são 75 e 1. 

Podem ser conseguidas ao todo onze combinações 
para a impressora de 80 colunas. No entanto, optamos 
por utilizar apenas oito. 

Agora, com o apoio dessa rotina, você pode até com- 
por seus textos, dando maior ou menor ênfase às pala- 
vras que preferir. [|] 


amenos e remetem im ue 
MUNIF GEBARA JÚNIOR é estudante e programa em BASIC, 
Logo, Cobol, dBASE Il e III, além de Assembler Z80. 
RICARDO T. SAITO cursa o CEFET-CTBA e programa em BA- 
SIC, Cobol e Assembler. Possui um MSX. 





º* Programa: AUTOEXEC.BAS 


10 KEYOFF:WIDTH39:SCREENZ:COLORI,4,4:CLS 
: POKE&HFCAB, 255: BLOAD”"GRAPH.BIN”,R:FORA- 
17010000: IFINKEY$=""THENZOELSENEXT 

20 BLOAD"GRAPH. CMD” : DEFUSR=8H922E: SCREEN 
0:BLOAD"GRAPH.LTR”,R:COLORI,15:PRINT"GRA 
PHOS III (C)- 1986”":PRINT"Renato Degiov 
ani”: PRINT:PRINT 

3078 

40 PRINT"Deseja a pergunta: (D)isco (C)a 
ssete ";:A=INPUTS(1):PRINTAS:PRINT: PRINT 
50 IFAS="N”"THENPOKES&HAEC4, &HA7 : POKESHAE6 
5 8HC9:GOTO7Z0 

60 IFA$"S”THEN4O 

PAi! 

80 AS="D” 

90 IFAS="D"THENPOKE&HB58B, 253: POKE&HB58C 
+7:GOTOIIO 

100 IFA$"S"THENSO 

110 PRINT"MODO DE IMPRESSÃO” 

120 PRINT"[1] SIMPLES PRECISÃO NORMAL” 
125 PRINT"[2] DUPLA PRECISÃO PEQUENO” 
130 PRINT”[3] DUPLA PRECISÃO NORMAL” 

140 PRINT”[4] DUPLA PRECISÃO LARGO” 

250 PRINT"[5] QUADRUPLA PRECISÃO PEQUENO 
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160 
170 
180 
190 
200 
210 
220 
XTA 
230 DATA 75,1,76,1,76,2,76,3,90,1,90,4,9 
0,6,90,7 

231 RESTORE232: FORA-0TO9:READAS: POKE&HC2 
46+A, VAL ("&H"+AS) : NEXTA 

232 DATA C5,06,04,CD,A5,00,10,FB,C1,C9 
240 POKE&HCIF2,Vl: POKE&HCIFC,V2:POKE&HC2 
48,V2 

250 POKES&HC213,4&H46 

260 A=USR(0) 


PRINT” [6] QUADRUPLA PRECISÃO NORMAL” 
PRINT" [7] QUADRUPLA PRECISÃO MÉDIO” 
PRINT" [8] QUADRUPLA PRECISÃO LARGO" 
PRINT 

LOCATEO, 23: INPUT" OPÇÃO” ;OP 

IF OP<l OR OP>8THEN200 
RESTORE230:FORA=-1 TO OP:READVI,V2:NE 





O SEUTALENTO 
É UM BEM PRECIOSO 


O SEU TEMPO TAMBÉM 








O TRANSPOSER é a arma que quebra 
TESNSPOSEE & a barreira existente entre os vários Edi- 
tores Gráficos disponíveis. Com ele, 
uma tela criada dentro de um editor po- 
derá ser lida e trabalhada por outro ou 
ainda, por um terceiro, etc... Desse mo- 
do, aproveita-se ao máximo, o que ca- 
da editor gráfico tem de melhor a 
oferecer. 








Escolha os seus números preferidos e 

deixe a matemática por conta do ZE- 

BRÃO que disto ele entende, Você ob- 

Eds terá em instantes, na impressora ou na 

ro É tela, a relação completa dos cartões 

FERRO necessários para cobrir o seu jogo da 
o és Sena ouda Loto. 





CRIAÇÃO Distribuição 


Francisco ATC. de freitas E | dest 


LOGO SOFT HOME SYSTEMS SncSS (É pad e iq DS 











Você encontra tudo em Hardware. “Disquetes de 3 1/2 e 5 1/4 
“Modem Telcon *Porta disquetes 


eKit para Drive DDX você encontra tudo em Software. 
RA a da G Es Programas para MSX normal 
Não perca tempo. omputa into radiente e Programas para DD-Plus e Plus 
x fosfato eConversão para 2.0 DDX «Programas para 2.0 
Não (sis lui sMegaram disk e normal Diversas IL 
Vá direto a Ectron. e Formulário contínuo TEMOS O CATÁLOGO COMPLETO 


Fitas para impressora COM PROGRAMAS E JOGOS 


ECTRON ELETRÔNICA LTDA. 


Rua Dr. Cesar, 131 - Santana 
São Paulo-SP - CEP 02098 
Caixa Postal 12005 

Fone: (011)290-7266 





PROGRAMA 


Seu nome pode traçar o seu destino 





Micro: PC XT 





Memória: 512 Kbytes 
Vídeo: CGA 
Linguagem: GW Basic 


Requisitos: 


Número da sorte 





conforme a tabela constante no pró- 


prio programa. 
Somando-se as letras, tira-se os 


O Carlos Rodrigues Sarti 


Loto, Sena, bicho, quem na vida 
nunca acreditou poder mudar o des- 
tino apostando em números? Pois é, a 
eterna insatisfação do homem impul- 
siona acões só explicáveis se encara- 
das sob o ponto de vista místico. 

No entanto, nada impede que até 
aqui a tecnologia facilite, através do mi- 


riam muito tempo, como no caso desse 
programa que verifica o seu número de 
sorte, baseado num livro de horóscopo 
chinês. 

A dedução é feita através do nome 
completo da pessoa, que deve ser di- 
gitado em letras maiúsculas, e daí para 
frente, o microcomputador atribui a 
cada letra um valor decimal de 1a 9, 


*noves fora e o que resulta será o seu 
número de sorte. 

Mãos à obra e 'voilá'! O] 
as ni ee ra 
CARLOS RODRIGUES SARTI é técnico 
em Eletrônica e fez os cursos de Sistema 
Operacional MS-DOS e Open Acess. Tem 
acesso a SID-501 e programa em BASIC, 
Pascal e dBASE III. 


cro, cálculos que manualmente leva- 


Programa: SORTE.BAS 


10 1989 
20 
30 
so 
E*:PRINT:PRINT 
Se PRINT” ESTE PROGRAMA VERIFICA O SEU NUMERO DE 
SORTE ATRAVES DO NOME QUE VOCE TEM :PRINT 
68 PRINT” SEU NOME SERA ANALISADO LETRA A LETRA 
ATRAVES DE UMA TABELA DE NUMEROS” :PRINT 
70 PRINT” CONFORME ESTA DEMONSTRADO ABAIXO: ":PR 
NT:PRINT 
80 PRINT” 
7 8 
90 PRINT” 
[ES co 
100 PRINT” 
PQ 
410 PRINT” 
NOS EZ 
4120 LOCATE 22,25:PRINT'TECLE ALGO PARA CONTINUAR” 
130 LOCATE 22,60:PRINT'Carlos R.Sarti - 1989" 
140 AS=INPUTSC1) 
150 CLEAR:KEY OFF 
160 CLS:LOCATE 2,15:PRINT'DIGITE EM LETRAS MAIUSCULA 
S SEU NOME COMPLETO” 
470 LOCATE 7,6:PRINT STRINGS(75,176) 
180 LOCATE 7,1:INPUT “NOME:",AS 
190 PRINT:PRINT:COLOR 47:PRINT".. 
COLOR 1 
200 FOR Z = 4 TO LENÇAS) 
210 IF MIDSCAS,Z,1)="A" THEN 
220 IF MIDSCAS,Z,14)="B"THEN 
230 IE MIDSCAS,Z,1)="Cº THEN 
240 IF MIDSCAS,Z,4)="D"THEN 
250 IF MIDS(AS,Z,1)="ESTHEN 
260 IF MIDSCAS,Z,4)="FTHEN 
270 IF MIDSCAS,Z,1)="B! THEN 
280 IF MIDS(AS,Z,1)="H'THEN 
290 IF MIDSC(AS,Z,1)="I" THEN 
300 IF MIDSC(AS,Z,4)="JºTHEN 


CARLOS RODRIGUES SARTI - APIAI - SP - 
CLS:KEY OFF 
PRINT:PRINT 


a10 
320 
330 
340 
aso 
360 
az0 
a8o 
avo 
“00 
asso 
420 
430 
440 
450 
460 
azo 
sBo 
490 
soe 
s10 
s20 
sao 
540 
sse 
sea 
INT 
s70 
s8o 
590 
s00 
810 
s20 
630 
eso 


MIDSCAS,Z,1)="Kº THEN 
MIDS(AS,Z,4)="LITHEN 
MIDSCAS,Z,1)="M/ THEN 
MIDSCAS,Z,1)="Nº THEN 
MIDS(CAS,Z,1)="0" THEN 
MIDS(AS,Z,1)="P:THEN 
MIDS(AS,Z,1)="Q! THEN 
MIDS(AS,Z,4)="R'THEN 
MIDS(AS,Z,1)="S" THEN 
MIDS(AS,Z,4)="T' THEN 
MIDSCAS,Z,£)="U THEN 
MIDSCAS,Z,1)="U" THEN 
MIDSCAS,Z, WITHEN 
MIDSCAS,Z,1)="X" THEN 
MIDSCAS,Z,1)="Y' THEN 
MIDSCAS,Z,1)="Z" THEN 
MIDSCAS,Z,1 “THEN 

NEXT 

CLS:PRINT:PRINT:PRINT NOME VERIFICADO: 

PRINT:FOR TL=1 TO LEN(AS) 

PRINT MIDSCAS, TL,4);" “; 

NEXT 

PRINT:PRINT:PRINT'VALOR DAS LETRAS” PRINT 

AB=0 

FOR Z = 16385 TO (16384+LENCAS)) 

AB=AB+PEEK(Z): IF PEEK(Z)=0 THEN PRINT” 

PEEK(Z)1 

NEXT 

PRINT:PRINT:PRINT 

NAS=STRSCAB) 

NBS=HIDS(NAS,2,14): 

NCS=HIDS (NAS, 3,1): 

NDS=HIDS (NAS, 4,4): 

ND=NA+NBANC 

IF ND ) 9 THEN LET ND=ND-9 

650 PRINT:PRINT:PRINT'NUMERO DE SORTE: “;ND 

660 LOCATE 22,10:PRINT"TECLE ALGO PARA CONTINUAR OU 

<ESC) PARA SAIR 

470 AS=INPUTSC4):IF ASCICHRS(27) THEN 150 

480 CLS:END 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


Ze16384,2: 
Z+16384,3 
Z+16384,4: 
Z+46384,5 
T+16384,6: 
2+16384,7: 
Z+16384,8 
Z+16384,9 
Z+16384,1: 
Z+16384,2 
Z+16384,3: 
Z+16384,4: 
Z+16384,5: 
Z+16384,6: 
Z+16384,7: 
Z+16384,8: 
z+16384,0 


NUMERO DA SORT 


1 


ERR So Es 


9" :PRINT 
Aro SBD io 


Es F 


PRINT 
PURE NH 


No 


Rº:PRINT 


8 Toyo uid 


“JELSE PR 


« PROCESSANDO .. 


“SOMA DAS LETRAS: “;AB 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


Z+16384,1: 
Z+16384,2 
Z+16384,3: 
Z+16384,4: 
Z+16384,5 
Z+16384, 6 
Z+16384,7: 
Z+16384,8: 
Z+16984,9: 
Z+16384,1: 


soro 
soro 
soro 
soro 
soro 
corto 
soro 
soro 
coro 
soro 


ago 
sBo 
amo 
480 
s80 
ago 
aBo 
ago 
seo 
sso 


NA=VAL (NES) 
NB=VAL (NC$) 
NC=VAL (NDS ) 
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UM PRODUTO UM PRODUTO 
PRO KIT PRO KIT 
ORIGINAL: PIRATEADO: 


o ZAPLER 





Pt LTS 


TAGS DS ICENOS SESEPNRUNS a ERIafagaR 








QUAL DESTES VOCÊ ESCOLHERIA 
PARA O SEU MICRO ? 


A qualidade dos produtos PRO KIT todo mundo conhece. São quase cinco anos de liderança no mercado de 
microinformática produzindo os programas mais vendidos e mais comentados para a linha MSX.. 


Mesmo assim, tem gente que ainda não desfruta da segurança, do conforto e da garantia proporcionados pelos 
produtos da PRO KIT. São lojas e revendedores que não optaram por vender cópias legais do GRAPHOS lll, PRO 
KIT zapper ou PRO KIT scanner, dentre outros. O que, convenhamos, equivale a utilizar menos de 10% do potencial 
comercial desses programas. O mercado consumidor está exigindo cada vez mais produtos profissionais e originais, 


AMAZÔNIA - o mais famoso adventure 
SERRA PELADA - o mais divertido adventure 
EDITOR 3.4 - editor de jogos adventures 





[E] GRAPHOS III - editor gráfico Mas agora ninguém mais tem desculpa para levar gato 
[] GRAPHOS PRO - editor gráfico profissional porlebre. A ATI Editora, com quase dez anos de liderança 
L) ALFABETOS 1 - banco de alfabetos no mercado editorial de microinformática, acaba de ser no- 
[] SHAPES 1 - banco de shapes e desenhos meada representante de toda a linha de produtos PRO KIT. 
1 TELAS 1 - banco de telas gráficas 

E Quem estiver interessado em revender os produtos da 
E RHenRI ap por Pantordendsaa PRO KIT em qualquer parte do Brasil pode entrarem con- 
PRO KIT scanner - capturador de desenhos : 
[1 PRO KIT files - gerenciador de discos tato conosco, por carta ou telefone. É uma rara oportu- 
[B PRO KIT rotl - utilitário p/imprimir manuais nidade de fechar um bom negócio - com a dupla garantia 
1 PRO KIT format - formatador especial da PRO KIT INFORMÁTICA e da ATI EDITORA. E você 

ainda aproveita nossas promoções especiais para novos 

E] DIGITAL BOOK 1 - livro eletrônico revendedores. 
[m 
[m) 
D 


LANÇAMENTO: ATI EDITORA S.A. 


PRO KIT topview - o editor de animação gráfica de- y 
finitivo para o MSX. Conheça-o no seu revendedor au- | Rua Washington Luiz, 9 gr. 403 


fone ARO Tel.: 232-0653 - Rio de Janeiro 








PROGRAMA 


Crie faixas e cartazes na sua Lady 80 





Ampliador de caracteres 


O Fábio Santos de Goes 


PRINTERI.BAS é um programa para 
imprimir mensagens ampliadas em uma 
impressora LADY 80 (em modo Il) e 
compatíveis. Ele é particularmente útil 
para se preparar títulos de cartazes cujo 
texto será posteriormente batido a má- 
quina, editado em outro programa, ou 
para coisas deste tipo, onde o usuário 
queira letras bem maiores do que as que 
são possíveis de se obter normalmente 
com a LADY 80. 

Este programa é inclusive bastante 
versátil, na medida em que ele se apro- 
veita dos diferentes modos de impressão 
da Lady 80 (comprimido, elite, expandido 
e normal) para'gerar suas ampliações em 
diferentes tamanhos. 


O PROGRAMA 


O programa PRINTER! recebe a men- 
sagem a ser impressa em A$, na linha 
30. Esta mensagem pode conter vírgu- 
las, caracteres gráficos e tudo o mais a 
que o usuário tem direito. Em seguida, 
das linhas 40 a 100, ele lhe oferece uma 
bateria de menus, onde são recolhidos 
os dados sobre como você quer a im- 
pressão da mensagem (dupla altura, 
comprimido, espaçada...). E ainda o ca- 
racter que comporá a mensagem, que 
pode ser com letras cheias ou textura- 
das (compostas por um caracter qual- 
quer, gráfico ou não.). Isto permite, por 
exemplo, que no dia das mães você lhe 
dê aquele cartão enorme, onde se lê 
'mãe' em dupla altura, com letras for- 
madas de um monte de corações... 

Nas linhas de 120 a 170 a impressora 
é preparada, recebendo os caracteres de 
controle referentes ao modo elite, com- 
primido, expandido, ou nenhum deles. 
Também aqui é definido o valor de X que, 
se for dois, fará um loop na linha 190, res- 
ponsável pelas ampliações DUPLA AL- 
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Micro: MSX 1. / 2 
Memória: 64 Kbytes 
Vídeo: P&B / Color 


Linguagem: Basic 


Requisitos: Drive 
Impressora 




















TURA, onde na verdade se imprime 
DUAS VEZES cada linha de uma am- 
pliação normal. 

Após a impressão é oferecido ao 
usuário um menu, onde é possível en- 
cerrar os trabalhos, imprimir novamente 


a mesma mensagem, no mesmo ou em 
outro formato, ou ainda outra mensa- 
gem, também no mesmo ou em outro 
formato. Isto é feito nas linhas 290 e 300. 

Acho importante também chamar no- 
vamente a atenção dos leitores para o 


fato de que o SCREEN,,,,1 da linha 10, 
habilita o conjunto de caracteres MSX, 
para se trabalhar com a LADY 80, na 
versão ABICOMP-MSX ou ABNT-MSX, 
em MODO Il. Portanto, se o usuário ti- 
ver sua impressora chaveada no MODO 
I (o que não é o meu caso), deve chaveá- 
-la para o Il, ou adaptar o programa, co- 
locando um SCREEN,,,,O na linha 10. 





A AMPLIAÇÃO: 


Há uma memória de leitura, chamada 
ROM (Read Only Memory) no seu mi- 
crocomputador MSX. Ela é responsável 
pelo funcionamento de seu computador, 
pois lhe diz como e o que fazer. Lá estão 
armazenadas todas as instruções do BA- 
SIC, as funções, as rotinas de comuni- 
cação com peritêricos (como seu grava- 
dor) e também, como não podia deixar 
de ser, o desenho das letras (ou você 
achava que o seu MSX já 'nasceu sa- 
bendo' como é o formato dos caracte- 
res dos humanos?). 

Este armazenamento é feito num lo- 
cal chamado TABELA DE CARACTE- 
RES, que começa no endereço (decimal) 
7103 e se estende por mais 2048 bytes, 
sendo 8 bytes para cada caracter. Os 8 
primeiros bytes referem-se ao formato do 
caracter 1, seguintes ao do 2, e assim por 
diante. 

Cada um desses bytes é uma linha de 
8 bits, e cada grupo de 8 bytes podem 
ser imaginado como dispostos em um 
tabuleiro de xadrez, onde estaria dese- 
nhada a letra, ponto por ponto. Cada 
ponto “aceso” é um bit com valor 1 e cada 
ponto 'apagado' é um bit com valor 0. 
Assim ficaria desenhada a letra A. 

O que o programa faz é justamente 
verificar na tebela de caracteres o dese- 
nho de cada letra da mensagem e im- 
primir um caracter na posição correspon- 
dente, no papel, para cada um desses 








ww wow vv 
v vvrevor vv y 
v vvvvvor vv 
v vvovevy we y 
v venvo vo, 
v ver DRA 
ww v v 
ou 
a 





E 





«ca<<< 
«ee<<< 











bits de valor 1, na memória (simples, 
não?). 

Só que isto não é feito letra por letra, 
de cada vez, mas sim linha por linha da 
mensagem, porque senão seria neces- 
sário ficar reposicionando o papel depois 
de cada letra impressa. 

O loop N na linha 180 é o responsável 
pelo incremento das linhas da mensa- 
gem, o loop F pelo incremento das le- 
tras da mensagem e o G, na sub-rotina 
320, pelo dos bits de cada linha de cada 
letra. E a pesquisa do formato do carac- 
ter é feito nas linhas 220 a 240, onde se 
assume que o endereço n da primeira li- 
nha de um caracter é dado por 7103 so- 
mado ao seu código multiplicado por 8. 
Seu desenho é a representação em bi- 
nário do valor contido neste endereço. 


Por ora é só. Se algum leitor tiver al- 
guma dúvida sobre o funcionamento do 
programa é só perguntar, mas acredito 
que isto não deverá ocorrer porque ele 
é muito simples de usar. A digitação de 
caracteres gráficos deve ser feita nor- 
malmente, digitando-se GRAPH ou 
CODE, mais a tecla correspondente. Ter- 
mino aqui, prometendo para breve um 
PRINTER2.BAS, onde a impressão será 
deitada, para permitir mensagens maio- 
res. 


EE 
FABIO SANTOS DE GOES é estudante do 
segundo ano do segundo grau. Tem ex- 
periência em TK 85, TK 90X e MSX 1.0. 
e programa em Assembler e Basic. 









cada livro adquirido. 


Peça já seu exemplar grátis | 
A Edição é limitada 


GRÁTIS GUIA DO COMPRADOR 
DE LIVROS DE MSX 


Agora você já pode selecionar e adquirir os livros disponíveis no mercado para a linha MSX. 
Nosso guiatraz as informações necessárias para você saber quais os benefícios que lhe proporcionarão 


SL Softeria e Livraria do MSX 


CAIXA POSTAL 0081 — CEP 01051 — SÃO PAULO - SP 









5 * RRERREREA PRINTER 1. BAS 

6! ARRERSEER Programa amliador de chr$ 

7! RRIREERR FSG - 04/06/1990 

8! ARRERAEER FSG Computação e Software 

91 

10 KEVOFF:SCREENO, ,,, 1: WIDTH 405COLOR 2,1,1 

15 "RE Apresentação 

16 * 

20 CLS:LOCATE 0,8:PRINT"Programa ampliador de mensagens 1,":PRINT, “Fábio Santos. de Goes, Maio de 1990," 

pa 

25 "4H Entrada de dados 

26 * 

30 PRINT, ,:PRINT, , :PRINT"DIGITE À MENSAGEM: “:PRINTSLINE INPUT AS 

40 PRINTOK. “:PRINT, , "ESCOLHA: "=PRINT,,"1.- AMPLIAÇÃO NORMAL “:PRINT,, “2 - AMPLIAÇÃO DUPLA ALTURA":PRINT,, "3 - AMPLIAÇÃO ESPAÇADA" 
SO AMS=INPUTS(L) 

60 PRINTºDK. ": PRINT, , "LETRAS: “:PRINT,, “1 - LETRAS CHEIAS": PRINT, "2 - LETRAS TEXTURADAS” 

70 LTS=INPUTS(1) 

B0 PRINT"OK, “:PRINT, » “TAMANHO: "=PRINT,, “1 - NORMAL *:PRINT,, “2 — ELITE"SPRINT,,º3 - COMPRINIDO":PRINT,, "4 - EXPANDIDO" 
90 TP$=INFUTS(1) 

100 D$="Eº:IF LT$=*2" THEN PRINT, ,:PRINT"Digite o caractere, gráfico cu não, do qual compor-se-ão as letras: ": INPUTDS 
110 IF LENCD$)>1 AND LEFTS(D$, 1)<)CHR$(1) THEN DS=LEFTSIDS, 1) 

115 IF ASC(D$)>255 THEN 100 

16º 

117 "4843 Prepara impressão 

18 + 


120 PRINT"OK.“:PRINT, , "LIGUE A IMPRESSORA E TECLE ALGO": 1$=INPUTS(4) 
130 LPRINTCHR$ (27) ;CHR$ (64) 

140 TF TP$="2" THEN LPRINT CHR$ (27); CHR$(77)s 

150 IF TP$="3" THEN LPRINT CHR$ (15); 

160 IF TPS: THEN LPRINT CHR$(27) 5 CHR$ (87) sCHR$ (1); 

170 IF AM$="2" THEN X=2 ELSE 3=0 


1" 


175 "HERE Inpressão 
1% Em o ma 
180 FOR N=0 TO 7 

um Ra 


190 FOR Y=t TO & 

200 FOR F=1 TO LEN(AS) 

210 AS=ASCIMIDS (AS, F, 11) EE 
ER 
Ea 


215 TF AS=1 THEN AS=ASC(NIDS(AS,F+1,1))-64:F=FH 


ã 
5 
O RB se 
! 
ã 
! mm MH UE 




















240 L$="0000000"+BINSCFL) :L$=RIGHTS(L$,8) 
250 GOSUB 320 

260 NEXT F:LPRINT:IF AM$="3" THEN LPRINT 
270 NEXT Y 

280 NEXT N 

284 * 

285 ' ESME Final 

286 1 

290 CLS:LOCATE 0,7:PRINT"I - Mesna mensagem no mesmo formato":FRINT"2 - Mesma mensagen em outro fornato":PRINT,,"3 - Outra mensagen 
no mesmo formato":PRINT'4 - Outra mensagem em outro formato": PRINT,,"S - END* 

300 IS=INPUTS(1):IF 1$="1* THEN 120 ELSE IF 1$="2" THEN 40 ELSE TF 1$="3" THEN INPUT'Nova mensagen ";AS:BOTO 120 ELSE IF 1$="4" THEN 
RUN ELSE TF 1$="5" THEN CLS:KEVON:END ELSE 300 

310 END 

a 

312 * E Sub-rotina p/ impressão 

as * 

320 FOR 6st TO 8 

330 TF MID$(L$,6,1)="1" THEN LPRINTDS; ELSE LPRINT” "; 
340 NEXT & 

350 RETURN 
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PROCURA 








A sua revista preferida está com 

idéias novas. Uma delas é contar 

com maior participação dos leito- 
res na sua elaboração. 

MS abre espaço para tra- 
balhos profissionais, 
numa tentativa de trazer 
a público os projetos, 
programas e apli- 
cações que por falta de 
divulgação, ficam restri- 

toscos ambientes acadê- 
= micos. 

Ea oportunidade! Seu material 

será examinado pela equipe téc- 

nica e com a devida autorização, 
publicado numa das nossas próxi- 
mas edições, 


a 
: Observe os seguintes 
n requisitos indispensáveis: 
1 - Lembre-se que a MS é lida por pes- quete, sem esquecer um texto explica- veitamento da matéria, Você será noti- 
soas que não têm a mesma intimidade tivo. ficado caso seu trabalho seja apro- 


vado. 
6-Surgindo qualquer dúvida, entre em 
contato com nossa redação. 


que você com o assunto em questão. 
Por isso utilize uma linguagem clara e 
acessivel. 


4-Caso sua matéria tenha fotografias, 
não esqueça o crédito e as legendas. 
Tabelas, desenhos e ilustrações tam- 


2 - Caso sua matéria seja um artigo ou 
crônica, envie-a datilografada com pá- 
ginas de 30 linhas e 72 batidas em es- 
paço 2.Se preferir mande em disquete. 
3- Se for um programa mande em dis- 


bém devem ter legendas e nitidez sufi- 
ciente para reprodução 

5-Ao enviar sua colaboração, não es- 
queça de anexar a autorização para 
ser publicada a fim de agilizar o apro- 


Porfim mande um currículo com en- 
dlereço completo e telefone Suas idéias 
vão contribuir para que tenhamos efe- 
Nardi uma informática nacional de. 
ponta. 





Revista Micro Sistemas - Rua Washington Luiz, 9 gr. 403 - Rio de Janeiro - RJ - cep 20230 


UTILITÁRIO 


Melhore o visual de suas aplicações 


Crie telas em Cobol 


O Joaquim Pedro de Oliveira Martins 


Quem programa na linguagem Co- 
bol sabe o quanto é problemática a ge- 
ração de telas. O SCR é uma ferra- 
menta para gerar uma Screen Section 
ou uma fonte completa para a criação 
de telas. 

A função deste utilitário é ler uma 
tela composta com um programa 
COPY CON... ou então em um editor 


IDENTIFICATION DIVISION. 
PROGBRAM-ID. SCR. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-PE. 
OBJECT-COMPUTER. IBM-PC. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL . 


SELECT TELA ASSIGN TO DISK 


de textos. O SCR inicia solicitando o 
nome da tela a ser convertida e em se- 
guida solicita um nome para o arquivo 
que será gerado. 

Duas opções são oferecidas para 
este arquivo: ele pode ser gerado com- 
pleto ou criada somente a Screen Sec- 
tion. 

Atente para o fato de que, nas te- 


Micro: PC XT 


Memória: 512 Kbytes 


Vídeo: CGA 
Linguagem: Cobol 


Requisitos: Nenhum 





las criadas através do programa COPY. 
CON, a última linha do arquivo será 
composta de caracteres estranhos, ori- 
ginados da conversão. Será necessá- 
rio, neste caso, utilizar um editor de 
texto para deletar esta última linha. 


O 
JOAQUIM PEDRO DE OLIVEIRA MAR- 
TINS é chefe do CPD da Rede de Super- 
mercados Cereais Ltda e programador da 
Informicro Petru's Computadores. Fez 
cursos de Cobol e Basic. 


PIC X(B9) VALUE 


ENVIRONMENT DIVISION.” 


PIC Xxc80) VALUE 


CONFIGURATION SECTION. 


SOURCE-COMPUTER. 


OBJECT-COMPUTER. 


ORGANIZATION IS LINE SEQUENTIAL 


FILE STATUS IS FSí. 


SELECT TELAZ ASSIGN TO DISK 


ORGANIZATION IS LINE SEQUENTIAL 


FILE STATUS IS FS2. 


DATA DIVISION. 
FILE SECTION. 
FD TELA 

LABEL RECORD IS 


04 REGS. 
02 LINHA 
FD TELAZ 
LABEL RECORD 15 


STANDARD 
VALUE OF FILE-ID IS ARQL. 


PIC X(70)« 


STANDARD 


PIE X(B9) VALUE 
264.º, 
PIC X(80) VALUE 
294. 
PIC X(B0) VALUE 


SPECIAL-NAMES.”. 


PIC X(80) VALUE 
DECIMAL-POINT IS COMMA.”. 
PIC X(80) VALUE 


DATA DIVISION”. 


PIC X(B0) VALUE 


WORK ING-STORAGE SECTION.” 


PIC X(B0) VALUE 


SCREEN SECTION”. 


PIC X(B0) VALUE 


os MOLD.“, 


PIC X(40) VALUE 


PROCEDURE DIVISION 


VALUE OF FILE-ID IS ARQ2. 


04 REGOL. 

02 LINHAX 
WORKING-STORAGE SECTION. 
77 ARG 
77 104 


PROGRAM-ID. 
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PIC X(80). 


PIC XCB) VALUE SPACES. oz 
PIC X(BO) VALUE 
IDENTIFICATION DIVISION.” oz 
PIC XCBO) VALUE 
TELA.”. 


SCR 


PIC X(40) VALUE 


ABR.” 


PIC X(40) VALUE 
DISPLAY (4 42 ERASE.”, 
PIC X(40) VALUE g 
DISPLAY MOLD,”. 
PIC X(40). 


SCRX REDEFINES SCRu 


sos 
oz soz 
soa 
o2 504 
02 sos 


PIC 
PIC 
PIC 
PIC 
PIC 


xc427. 
X(8). 
XX« 
x(8). 
XX. 












o2 so6 PIC x(8). 














77 MEMO PIC XC12) VALUE “ a 
77 MEML PIC XCB) VALUE “02 LINE “. 
77 MEM2 PIC XCB) VALUE “” COLUMN “. 
77 MEM9 PIC XC7) VALUE “ VALUE”. 
77 FS4 PIC XX VALUE SPACES. 
77 Fs2 PIC XX VALUE SPACES. 
os L47 PIC X(55). 
04 LO47 REDEFINES L47. 

02 L4 PIC X(12). 

02 L5 PIC Xu 

02 Lá PIC X(40). 

o2 L7 PIC XX. 
04 LH-T PIC XC80). 


04 LH-TT REDEFINES LH=T. 




















02 LTT PIC x(40). 

02 LTTL PIC Xc40). 
Fe PIC 99 VALUE O. 
77 CM PIC 99 VALUE O. 
77 VER PIC 9 VALUE O. 
77 RT PIE X(30)« 
77 ARaL PIC Xc12). 
77 ara2 PIC Xxc8). 
771 PIC 99 VALUE 6. 
RE PIC 99 VALUE O. 
77 OP PIC X VALUE SPACES. 
77 uv PIC 9? COMP VALUE 28. 
77 8 PIC 99 COMP VALUE 7. 
77 D PIC 99 VALUE O. 
PROCEDURE DIVISION. 
ABR. 


DISPLAY (4 1) ERASE. 

DISPLAY (3 25) “GERADOR DE TELAS COBOL — MS“. 
DISPLAY (6 3) “NOME DO ARQUIVO A SER LIDO =“. 
ACCEPT (6 33) ARQ2 WITH BEEP. 

IF ARQ2 = SPACES CLOSE TELA TELAZ 

DISPLAY (1 £) ERASE STOP RUN. 

OPEN INPUT TELAZ. 

IF FS2 > “00” CLOSE TELAZ 

DISPLAY (4 40) “ARQUIVO NAO ENCONTRADO “ 
STOP ” “ GO ABR« 

CLOSE TELAZ. 




















DISPLAY (B 3) “NOME DO ARQUIVO DE SAIDA =” 
ACCEPT (B 33) ARQÍ WITH BEEP. 

IF ARQL = SPACES GO ABL. 

OPEN OUTPUT TELA. 
OPEN INPUT TELAZ. 









DISPLAY (£0 3) “PROGRAMA COMPLETO (S/N) 2”. 
ACCEPT (40 33) OP WITH PROMPT. 


IF OP NOT = “5” AND OP NOT = “Nº GO AB2. 










PERFORH INI-COB. 
MOVE MEMO TO 501 MOVE MEMI TO S02. 
MOVE MEM2 TO 504 MOVE MEM3 TO 504. 
MOVE SPACÉS TO LA. 

MOVE “2 TO LS. 

MOVE “4, TO 7, 

DISPLAY (1 1) ERASE. 

MOVE 4 TO COL. 































ADD 4 TO 1. 
MOVE 1 TO LIN. 
IF 1) 22 60 FIM. 
READ TELAZ IF FS2 > “00” GO R$. 
DISPLAY CLIN , COL) LINHAX. 
LF LINHAX = SPACES PERFORM BRC GO Rí. 
IF 1 = 4 PERFORM BRO MOVE O TO CT. 
PERFORM ROTÍ. 
MOVE SCR TO LINHA WRITE REGÍ. 
MOVE LINHAX TO LH-T. 
MOVE LTT TO Ló. 
MOVE L$7 TO LINHA WRITE REGÍ. 
PERFORM ROTi« 
IF LTT4 NOT = SPACES 
MOVE SCR TO LINHA WRITE REGS 
MOVE LTTÍ TO Ló 
MOVE L$7 TO LINHA WRITE REGÍ. 
60 Ri. 
ROTI. 
ADD 1 TO VER. 
IF VER =2 





MICRO SISTEMAS 51 


INI-COB. 


BRC. 


FIM. 


Treinamento Auto-Instrutivo, 
Auto-Didático, 
Auto-Programado.| 


- Baixo Custo Operacional, um 
só computador treina vários. 
cliontes. 






ADD 4 TO CT MOVE O TO VER. 

MOVE CT TO S03. 

IF CM = 41 MOVE 4 TO CM ELSE MOVE 44 TO CM. 
MOVE CM TO 505. 


IF OP = “5” 

MOVE LOi TO LINHA WRITE REG1 
MOVE LOZ TO LINHA WRITE REGi 
MOVE LO3 TO LINHA WRITE REGÍ 
MOVE LO4 TO LINHA WRITE REGÍ 
MOVE LOS TO LINHA WRITE REG1 
MOVE LO6 TO LINHA WRITE REG1 
MOVE LOZ TO LINHA WRITE REGÍ 
MOVE LOS TO LINHA WRITE REGÍ 
MOVE LO9 TO LINHA WRITE REGÍ 
MOVE L1O TO LINHA WRITE REGi. 
MOVE Lií TO LINHA WRITE REGÍ. 
MOVE Lí2 TO LINHA WRITE REGÍ. 


ADD 4 TO CT MOVE CT TO Soa 
MOVE 4 TO VER 
MOVE 44 TO CM. 


IF OP = “s“ 

MOVE Li3 TO LINHA WRITE REGÍ 
MOVE Li4 TO LINHA WRITE REGÍ 
MOVE Lí5 TO LINHA WRITE REG£ 
MOVE L16 TO LINHA WRITE REGÍ. 
MOVE 4 TO LIN. 

CLOSE TELA TELAZ2 STOP RUN. 





ss SISTEMA DE 
| TREINAMENTOS 
INOVATIVOS 


tecnologia em courseware 


APRENDENDO DOS 
Treinamento simulado e interativo do Sistema Operacional 
MS-DOS desenvolvido em CBT —- Computer Based Training 
(Treinamento Baseado em Computador). 
Características: — Economia de Tempo, 
locomoção, estadia de 
funcionários a serem treinados. 
— Economia para o usuário, lucro 
para o fabricante ou revenc 
Kit APRENDENDO DOS 
Juntamente com o 
microcomputador. 


- Facilidade para o cliente que 





Vantagens: 





PREÇOS ESPECIAIS 
PARA FABRICANTES DE COMPUTADORES E REVENDAS. 


Av. 9 de Julho, 282 - 3º andar - Cep 01312 - São Paulo - SP 
LIGUE (011) 34-6076 





ROTINA 


Incremente a planilha 


PLAN-MSX 








Rotina de ordenação 


O Paulo Eduardo Ribeiro Bastos 


A planilha eletrônica Plan MSX, a qual 
possuo em versão original em fita, é bas- 
tante prática mas peca num aspecto: ela 
não dispõe de uma opção de ordenação. 

Sendo a ordenação alfabética uma 
função importante numa planilha, de- 
senvolvi a rotina aqui apresentada e efe- 
tuei algumas alterações no programa ori- 
ginal a fim de otimizá-lo para uma 
utilização mais profissional. As modifi- 
cações realizadas são as seguintes: 


Listagem 1: Modifica o programa prin- 
cipal para acesso à rotina de ordenação; 


Listagem 2: Rotina de ordenação alfa- 
bética; 


Listagem 3: Contém modificações para 


º Listagem 1 


Linhas modificadas para acesso à rotina de ordenação 


economizar memória. A planilha origi- 
nal, após o carregamento e antes de se 
dar RUN, apresenta 18873 bytes livres; 
com as modificações introduzidas pelas 
quatro listagens aqui apresentadas, a 
nova planilha passará a dispor de 19477 


“bytes livres. Caso o programa já tenha 


sido rodado, basta digitar CLEAR 200 e 
em seguida FRE(O). 


Listagem 4: Melhora a visualização do 
cursor e utilização com vídeo monocro- 
mático. 


UTILIZANDO O PROGRAMA 
O acesso à rotina de ordenação é ob- 


tido pressionando-se a tecla / (barra) e 
em seguida a tecla O. Feito isto, deve-se 


Micro: MSX 1./2. 
Memória: 64 Kbytes 
Vídeo: P&B / Color 
Linguagem: Basic 


Requisitos: Plan MSX 











digitar a coluna que será ordenada 
(letras de A a T). Em seguida deve-se 
digitar o número da linha por onde se 
deseja iniciar a ordenação, seguido de 
RETURN ou ENTER. Pode-se iniciar a 
ordenação por qualquer coluna e linha 
da planilha, contanto que seja fornecida 
no mínimo uma linha para término da 
ordenação com número maior que o da 
linha de início. 

É muito importante notar que a ro- 
tina de ordenação deverá ser utilizada 
preferencialmente quando se inicia o 
preenchimento de uma nova coluna, 
pois após a ordenação a coluna não terá 
mais correspondência com as colunas 
posteriores. Isto inviabiliza a utilização 
de fórmulas que tenham sido eventual- 
mente introduzidas, a menos que as 
mesmas sejam redigitadas nas células 
correspondentes, após a ordenação da 
planilha. 1) 


3000 LOCATE 5,23:PRINT "COMANDO: AGFRNIEJCPSO"CAS; 

3010 A=INSTR (1,"AGFRNIEJCPSO”,AS) :ON À GOTO 

3020, 3100, 3200, 3300, 3400.3500, 3600, 3700, 3800, 3900.4000, 30000:GosuB 
9500:G0TO 4100 





Rotina de ordenação 


30000 LOCATE 5,23:PRINT SPC(30) :LOCATE 5,23:PRINT “ORDENAÇÃO - COL 
(A-T) 2”; :GOBUB LL:LOCATE 5,23:PRINT SPC(30) 

30001 JJ=ASC(AS) :J=JJ-65 

30002 LOCATE 11,22; PRINT " 
BPC(13) :LOCATE 11,22:PRINT 
see (13) 

30003 FOR JA=LI TO L2-1 
30004 FOR JB=JA+1 TO L2 
30005 IF INS(JA.J)<=INS(JB,9) GOTO 30009 
30006 OD$=INS(JE,U) 

30007 INS (8,9) =INS (JA,9) 

30008 INS (JA, 3) =0D5 

30009 NEXT JB, JA 

30010 GOSUR 1010:G0TO: 4100 


LINHAS 
é LINI 


INPUT LIZLOCATE 11,22:PRINT 
INPUT L2:LOCATE 11.22: PRINT 
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Modificações feitas para economizar memória 
DELETE 13000:DELETE 18000:DELETE 4-9 


2 MA=21:ML-20:GOSUB 15:cAs=” 
T:FPS-CHRS (28) +CHRS (29) +CHRS (30) +CHRS (31)+CHRS (11)+"/":CBS=CAS+CAS+CA 
S:NP=124:8G-15:FG-]:KEYOFE:ON KEY 
Gosu. + 14000 19000:KEY(10)0N:KEY (5)ON:STOP ON;ON STOP Gosus, 

oo 


4 SCREEN 3:0PEN “GRP:” FOR OUTPUT AS4L 


5 PRESET(7,50) :PRINT 41, "PLANILHAS :PRESET(B7,110) PRINT 41," MSK" 
6 FOR T=0 TO 15000:NEXT 
7 SÓREEN O:CLOSE 41:RETURN 


Modificações para melhorar a utilização com vídeo monocromático e 
tornar o cursor menos cansativo aos olhos. 


Linha 1: 
Linha 3: 


COLOR 15,1,1 
LOS-STRINGS(12,175) 


15 GOSUB 4:LOCATE 11,10:PRINT "CIBERTRON SOFTWARE” :LOCATE 9, 12:PRINT 
“Adaptação PERB 06/89":RETURN 












S0S MICRO 


ATENDIMENTO INSTANTÂNEO (2hs.) 
ASSISTÊNCIA TÉCNICA 


Especializado na área com 5 anos de 
experiência em manutenção de: 


MICROS * REDES LOCAIS « MONITORES 
E PERIFÉRICOS 


Contratos de Manutenção a partir de50 BTNs 
Laboratório próprio 


ligue já e comprove! 


TEL.: 299.1166 

















SOFTCLUBES 


A Solução em Software 


/ 


Jogos - Aplicativos 
Utilitários para 
o seu AMIGA 


APPLE CLUBE 


O Clube dos usuários de APPLE 

O maor acervo, de programas com qua: 
84 3000 títulos à sua disposição. Além 
caso, temos o APPLE NEWS, um jornal 
mental com as novidades do clube e que 
Serve como mero de comunicação entra 
Os sócios para troca de infor: 


PC CLUBE 


O Clube dos usuários do IBM-PC. Com 
mais de 2.000 discos com as últimas no- 
vidades do mercado intemacional. 

Mensaimente temos o PCNEWS, um ca: 
nai dg comunicação entre os sócios com 
fadas ss joio nações boba mund dos 


SOFTCLUBES 


Caixa Postal 12190 CEP 02098 
Tel.: (011) 2899-1166 SÃO PAULO SP 


Peça o nosso catálogo 
com as últimas novidades 


Escreva para: 
CAIXA POSTAL 01048 
CEP: 70651 
BRASÍLIA-DF 








Jana 


TUDO PARA SEU MSX & CP 400 COLOR 
SOLICITE CATÁLOGO GRÁTIS POR CARTA OU TELEFONE 
ATENDEMOS TODO O BRASIL!!! 


MSX1 & MSX 2 
JOGOS 


NORMAIS MSX 1 = Cr$ 29,00 
ESPECIAIS = CrS 39,00 
MEGAROMS MSX 1 = CrS 49,00 
MEGAROMS MSX 2 = CrS 59,00 
NORMAIS MSX 2 = CrS 45,00 
MSX 2 720KB = CrS 65,00 


APLICATIVOS E UTILITÁRIOS 
Cr$ 99,00 


COPIADORES 
Cr$ 130,00 


TEMOS AINDA DISQUETES DE 5 1/4 E 3 1/2, MODENS, IN- 


TERFACES DE COMUNICAÇÃO, PORTA DISQUETES, ETC... 





SOFTNEW INFORMÁTICA LTDA. 
Rua Miguel Maldonado, 173 
Jardim S. Bento - CEP 02524 

Tel.: (011)266-2902 - S. Paulo-SP 





ATENDEMOS DE SEGUNDA A SEXTA DAS 9:00 ÀS 18:00 E 
AOS SÁBADOS DAS 9:00 AS 13:00 


CP 400 COLOR 
JOGOS: CrS 39,00 
APLICATIVOS/ UTILITÁRIOS: 
Crs 99,00 
COPIADORES: CrS 150,00 


PROGRAMAS ESPECIAIS MSX 
MSX DESIGNER V: 1.3, MINOS, MULTI COPY, 
SPRITE WRITER, VÍDEO GRAHICS PLUS, 


Podem ser encontrados em nossas 
revendas autorizadas: 


S. PAULO (011): ECTRON (290-7266), MISC (36-3226), 
CHAMPION (65-2030), BENNY (5701555), FARAHS 
(37-3437), AUDICOMP (267-3581); S. BERNARDO DO 
CAMPO (011): MICRO TRAINNING (448-6288), R.G. SUL: 
PROLUGUS ((0512)22-5803); R. JANEIRO: RIOSOFT 
((021)264-3726). 


OBS: VALORIZE O SOFTWARE NACIONAL. NÃO COMPRE 
CÓPIAS PIRATAS. 
COMPRE APENAS PRODUTOS SOFTNEW EM NOSSOS 
REVENDEDORES AUTORIZADOS. 








APLICATIVO 


Evite erros, controle sua conta bancária 





Sistema de conta corrente 


O Willians Carlos de Albuquerque 


Em tempos de dificuldade para 
manter os cruzeiros no banco, é pre- 
ciso controlar a todo custo nossa 
conta corrente para não correr o risco 
de ficar diante de uma surpresa de- 
sagradável: um chege “voador” (!). Foi 
pensando nisto surgiu o sistema em 
dBASE Il, para o MSX, que controla 
a conta corrente. 

O sistema é amigável, as únicas 
exigências são: digitar os dados em 
caixa alta e informar obrigatoriamente 
a data ao dBASE. 

Além de lançar, alterar e deletar re- 
gistros, apresenta dois tipos de extrato 
na tela: a partir de uma data infor- 
mada e por histórico, e mais um ou- 
tro, via impressora, referente ao mês 
em curso. 

O sistema controla também os nos- 
sos preocupantes cheques pré- 
-datados, que são compensados au- 
tomaticamente. 

Esta versão foi desenvolvida pen- 
sando nos usuários que não possuem 
ainda um monitor de 80 colunas e que 
o uso da impressora não é tão impor- 
tante, melhor dizendo, o sistema de- 
sobriga o uso da impressora. No en- 
tanto, já está desenvolvida uma outra 


versão, com um acabamento mais 
apurado e que tem, entre outras no- 
vidades: 

- uma agenda de contas a 
pagar/receber; 

- uma rotina para gerar um outro ar- 
quivo para as movimentações antigas; 
- versão para 40 ou 80 colunas; 





* MENUG - CONTA CORRENTE 


SET TALK OFF 
ERASE 

STORE O To Op 
DO WHILE OP <> 8 
TEXT 

mEnvG 


** CONTA CORRENTE ** 


Novo Registro. 
Altera Registr. 
Deleta Regiatr: 
Extrato p/data. 
Extrato p/histórico 
Relatorios....... 
Cheque Pre-datado 
(Riapce se 











endtext 
6 1,23 SAY “data:” 
é 1,28 say date () 
















Micro: MSX 1./2. 
Memória: 64 Kbytes 


Vídeo: P&B / Color 


Linguagem: dBase || 


Requisitos: Drive 





- opção para controle das aplicações 
no over ou na poupança. 


Esta versão será publicada numa 
próxima edição de MS. Aguarde! 


eg reem 
WILLIAMS CARLOS DE ALBUQUER- 
QUE trabalha com BASIC, Cobol e dBASE 
Il. Atualmente desenvolve sistemas de 
apoio logístico e comercial para micro- 
empresas e profissionais liberais. 


Input “opcao * to op 
do case 
case op - 1 

DO NOREG 

CASE OP - 2 

DO ALTER 





OTHERWISE 
€ 22,0 SAY "opcao invalídat!!” 
storé 1 to time 

do while time < 100 

store timetl to time 

endão 

endcase 

ERASE 

endão 
















* DRIVES 5 1/4 E 3 1/2 
* MODEM 
* IMPRESSORAS 
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JOGOS E APLICATIVOS PARA 1.0 E 2.0 
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Rua Dr. Pache de Farias, 21 Sala 409 - Meier 
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NOREG.CMD 


XNOREG-NOVO REGISTRO 
SET TALK OFF 

ERASE 

USE CONTA 

STORE "00/00/00" TO DATT 
STORE * ” TO RESP 

DO WHILE ! (RESP) O "NY 
APPEND BLANK 

SET CONFIRM ON 











80,0 SAY "NOREG" 
é 3.10 SAY "MACONTA CORRENTERA” 

6 5,13 SAY "NOVO REGISTRO” 

8 6,13 BAY “anesanaanan: 

é 9,1 SAY "Historico * GET NOME 

* 10,1 SAY "Data do Movimento * GET DATT PICTURE “44/44/44 
6 11,1 SAY “Num do Documento * get NODOC 

8 12,1 say “Cred ou Debito C/b* GET SIT 

6 13,1 SAY "Valor ” get VALOR 

READ 


IF SIT = I (rem) 
REPLACE SALDO WITH SALDO + VALOR 

ELSE 
REPLACE SALDO WITH SALDO - VALOR 

ENDIF 

BEPLACE DATA WITH S(DATT.7.2) + S(DATT.3.4) + S(DATT.1.2) 

626.1 SAY “Mais registros (5/N)?” get RESP 

READ 

ENDDO 

RELEASE ALL EXCEPT OP 

USE 

ERASE 

RETURN 

























* ALTER = ALTERA REGISTRO 
SET TALK OFF 

ERASE 

USE CONTA. 

STORE * ” TO RESP 

BTORE” / / * TO DATT 

STORE O TO SALD 

DO WHILE ! (RESP) <> "Nr 

8 0,0 SAY "ALTER? 

é 3,10 SAY "A4 CONTA CORRENTE a" 

é 6,9 SAY "ALTERACAO DE REGISTRO” 

87,9 5AY tunm. a 

é 12,1 SAY *Digite o no. docto ou RET p/Fin” 
ACCEPT TO NODE 

IF NODC =” * 

usE 

RELEASE ALL EXCEPT OP 

RETURN 

ENDIF 

LOCATE FOR NODOC = 
IF EOF 

é 20,2 SAY"Documento no encontrado 
? 

ACCEPT" Pressione RET p/cont...” to qq 

RELEASE NODC 

ERASE 

Loop 

ENDIF 

ERASE 

STORE S(DATA.7.2) + S(DATA.3,4) + S(DATA,1,2) TO DATT 











(nopc) 








€ 0,0 SAY "RALTE” 
€ 3,10 SAY "AR CONTA CORRENTE ar 

€ 6,10 SAY "REGISTRO A ALTERAR” 

8 7.10 SAY "mi 

6 10,2 SAY “Historico ” get NOME 

é 11,2 SAY "Data do Myto “ get DATT picture 84/44/48" 
6 12,2 say "No do Docto ” get NoDOC 

& 13,2 say "Cred ou Debito D/C * get SIT 

6 14,2 say "Valor ” get VALOR 


read 
REPLACE SALDO WITH O 

IP SIT = 1(*C*) 

REPLACE SALDO WITH SALDO + VALOR 

ELSE 

REPLACE SALDO WITH SALDO = VALOR 

ENDIF 

REPLACE DATA WITH S(DATT.7,2) + S(DATT,3,4) + S(DATT, 
é 22,2 say "Mais alteracoes (S/N)” get RESP 

read 

ERASE 

enddo 

release all except OP 

ERASE 

return 






















Programa: DELET.CMD 


SET TALK OFF 

ERASE 

USE CHECPRE 

STORE” / / "TO DATT 

STORE * * TO RESP 

STORE 0 TO SALD 

DO WHILE ! (RESP) <> "7º 

€ 0,0 SAY "DELEP” 

€ 3,9 SAY "KR CHEQUE PRE-DATADO «a 
€ 6.9 SAY "DELETACAO DE REGISTRO” 
e 7,9 Sar - Ralado 
12.1 SAY "Digite O no. docto ou RET p/Fim” 
ACCEPT TO NODC 

IF NODC =" * 

use 

RELEASE ALL EXCEPT OP 

RETURN 

ENDIF 

LOCATE FOR NODOC = ! (NODC) 

IF EOF 

€ 20,2 SAy"Documento no encontrado!!!” 
? 


ACCEPT" Pressione RET p/cont 
ERASE 
Loor 
ENDIF 
ERASE 





* to qq 





STORE S(DATA.7,2) + S(DATA,3.4) + S(DATA,1,2) TO DATT 
0.0 SAY “DELE” 
3.10 SAY "X* CONTA CORRENTE xx” 
6,10 SAY "REGISTRO A DELETAR” 
7.10 SAY já 








“Historico * get NOME 
“Data do Nvto ” get DATT picture "44/44/04" 
“No do Docto * ger NoDoc 

Cred ou Debito D/C * get SIT 

“Valor * get VALOR 


"Confirma Delecao (5/N)* GET RESP 





1€ I(RESP) = "sr 
delete 
& 22,2 say “Regitro sendo eliminado! !” 
PACK 

STORE O TO TIME 

IF TIME > 100 

STORE TIME + 1 TO TIME 

ENDIF 

ENDIF 

ERASE 

enddo 

use 

RELEASE ALL EXCEPT OP 

ERASE 

return 





* LIDAT - LISTA P/DATA 
SET TALK OFF 

ERASE 

USE CHECPRE 

STORE” / / * TO DAT 

STORE * " TO RESP 

STORE” / / “TO DATT 

STORE O TO SALD 

8 0,0 SAY "LIDAP* 

€ 3.9 SAY "rACHEQUE PRE-DATADOMA” 

é 5.12 SAY “LISTA POR DATA” 

e 6,13 SAY * = 

€ 10,2 SAY “Digite a data ” GET DAT PICTURE "44/44/04" 
READ 

STORE S(DAT,7.2) + S(DAT,3,4) + S(DAT,1,2) TO DATT 
SUM SALDO FOR DATA < DATT TO SALD 

LOCATE FOR DATA >= DATT 

IF EOF 

€ 18,2 SAY “Data nao encontrada!!” 

? 

ACCEPT” Pr 
ERASE 

ENDDO 

usE 

RETURN 
ENDIF 

ERASE 
RELEASE DAT 
STORE” / / "TO DATT 

STORE 14 TO MAX 

STORE O TO LIN 

8 0,0 SAY “EXTIP *A% CHEQUE PRE-DATADO EXTRATO xuxa” 
e2,0 DOC SIT VALOR” 
23,0 
DO WHILE .NOT. EOF 
STORE S(DATA,7.2) + S(DATA,3,4) + S(DATA,1.2) TO DATT 
€ LIN+4,0 SAY DATT 

é CIN+4.9 SAY NOME 

€ LIN+4,20 SAY NODOC 

é LIN+4,28 SAY SIT 





rone <RET> p/fim” TO Q9 
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* DELET - DELETA REGISTRO 





6 LINH4,31 SAY VALOR 
sxIP 
STORE LIN + 2 TO LIN 
IF LIN > MAX 
8 21,0 Sar" anna 
0 22,1 SAY "Digite <RET> p/Continuar 
ACCEPT TO q] 
ERASE 
STORE O TO LIN 
0,0 SAY "EXTTO 44 CONTA CORRENTE - EXTRATO A4% 
62,0 SAY "DATA HISTORICO DOC SIT VALOR” 
é 3,0 Sar ms 
Loo? 
ENDIF 
ENDDO 


6 22.0 SAY "Nao tem mais registro!!!” 
STORE O TO TIME 

DO WHILE TIME < 100 

STORE TIME + 1 TO TIME 

ENDDO 

6 22,0 SAY "Digite CRET> p/continuar tt!” 
ACCEPT TO qq 

usE 

RELEASE ALL EXCEPT OP 

ERASE 

RETURN 


* LHIST - CONTA CORRENTE HISTORICO 


SET TALK OFF 
ERASE 
USE CONTA, 
STORE” / / * TO DAT,DATT 
STORE * “TO RES! 
STORE * TO HIST 
STORE 2 TO LIN 
STORE 14 TO MAX 
0,0 SAY “LHISTA 
€ 3.11 SAY “RR CONTA CORRENTE 2x" 
6 5,11 SAY "LISTA POR HISTORICO” 
86,11 say mo 
10,2 SAY "Digite Historico * get HIST 
14,2 SAY "Digite a Data Inicial ” get DAT PICTURE "44/44/04" 


READ 
STORE S(DAT.7,2) + S(DAT,3,4) + S(DAT,1,2) TO DATT 
LOCATE FOR S(NOME,1,4) =! (S(HIST.1,4)) 
00,0 SAY "EXHIS 44 CONTA CORRENTE - HISTORICO na” 
2.0 SAY "DATA HISTORICO DOC SIT VALOR” 
€ 3,0 Shar rm mm = 
DO WHILE .NOT. EO 
IF S(NOME,1,4) <> I(S(HIST,1,4)) 
BKIP 
Loop 
ENDIF, 
IF DATA < DATT 
BKIP 
LOOP 
ENDIP 
STORE S(DATA,7,2) + S(DATA,3,4) + S(DATA 1,2) TO DAT 
€ LIN+2,0 SAY DAT 
LIN+2,9 SAY NOME, 
LIN+2,20 BAY NODOC 
LIN+2,28 SAY SIT 
LIN+2,31 BAY VALOR 
SKIP 
STORE LIN+2 TO LIN 
IP LIN > MAX 
821,0 SAY Nommn: mano 
22,0 SAY "Digite <RET> p/continuar. 
ACCEPT TO QQ 
STORE 2 TO LIN 
60,0 SAY “EXHIS *4 CONTA CORRENTE - HISTORICO axa” 
02,0 SAY “DATA HISTORICO DOC SIT VALOR” 


621,0 SAY "= 
6 22,1 say “Nao tem mais registro!!!” 
store 1 to cont 
do while cont < 100 
store cont + 1 to cont 
nddo. 
22,1 say "Digete <RET> p/Continuar. 
ACCEPT TO QQ 
RELEASE ALL EXCEPT OP 
USE 
return 


56 MICRO SISTEMAS 


“2% PROGAMA "CONTA CORRENTE” 22x 
* LISTA 

SET TALK OFF 

ERASE 

STORE O TO OP 

STORE” / / "TO DOTE 

STORE 1 TO PG 

STORE O TO SALD 

STORE DATE() TO DATAL 

STORE 50 TO MAX 

SET FORMAT TO PRINT 

DO LIST-SUB 

USE CONTA 

STORE S(DATAL,7.2)+S(DATAL.3.4)+"01” TO DATAZ 
SUM SALDO FOR DATA < DATAZ TO SALD 
LOCATE FOR DATA >= DATAZ 

IF EoF 

6 LIN + 4,9 SAY “SEM MOVIMENTACAO NESTE MES!!!!” 
ENDIF 

DO WHILE .NOT.EOF 

STORE S(DATA,7,2) +S (DATA, 3,4) +S(DATA, 1,2) TO DOTE 
€ LINH,2 SAY DOTE 

€ CIN+I,I1 SAY NOME 

é LIN+1,22 SAY NoDOC 

é LIN+1,30 SAY SIT 

é LIN+1.33 SAY SALDO 

STORE SALD + SALDO TO SALD 

é LINH1,41 SAY SALD 

sKrP 

STORE LIN + 1 TO LIN 

IF LIN > MAX 

STORE PG+] TO PG 

SET EJECT ON] 

EJECT 

DO LIST-SUB 

SET EJECT OFF 

ENDIF 

ENDDO 

SET PRINT OFF 

RELEASE ALL EXCEPT OP 

SET FORMAT TO SCREEN 

usE 

RETURN 


* MENUP - CHEQUE 
SET TALK OFF 
ERASE 

STORE O TO OP 
DO WHILE OP <> 5 
TEXT 

MENUP 


CHEQUE PRE-DATADO *+ 


Deleta Reg Pre-data 
Extrato Cheques..... 
ietorna Menu Geral.. 


endtext 
input “opcao ” to op 


SET TALK ON 
OTHERWISE 

€ 22,0 SAY "opcao invalida, 
store 1 to time 

do vhile time < 100 

store timeti to til 

endão 

endcase 

ERASE 

enddo 








XNOREG-NOVO REGISTRO 


SET TALK OFF 
ERASE 

USE CHECPRE 

STORE "00/00/00" TO DATT 

STORE ” " TO RESP 

DO WHILE ! (RESP) <> "Nº 

APPEND BLANK 

SET CONFIRM ON 

€ 0,0 SAY "NORCH” 

3,10 SAY "AXCONTA CORRENTERA” 
5,10 SAY "CHEQUE PRE-DATADO” 
6 6.10 say "o 
é 9,1 SAY "Destinacao * GET NOME 
6 10,1 SAY “Data do Cheque” GET DATT PICTURE "44/04/08" 

1,1 SAY "Num do Cheque * get NoDOC 
6 12,1 SAY "Valor * get VALOR 
READ 
REPLACE SIT WITH “D” 

REPLACE DATA WITH S(DATT,7,2) + S(DATT,3,4) + S(DATT,1,2) 
6 20,1 SAY "Mais registros (S/N)? get RESP 

READ 

ENDDO 

RELEASE ALL EXCEPT OP 

USE 

ERASE 

RETURN 











Ave 








* ALTER - ALTERA REGISTRO 


SET TALK OFF 
ERASE 


USE CHECPRE 
STORE ” * TO RESP 
STORE * / / * TO DAT 
STORE O TO SALD 
DO WHILE !(RESP) O TN” 
8 0,0 SAY "ALTER" 
& 3,9 SAY "A% CHEQUE PRE-DATADO *A” 
é 6,9 SAY "ALTERACAO DE REGISTRO! 
87,9 SAY Mm ennnar 
€ 12,1 SAY "Digite O no. docto ou RET p/FiR” 
ACCEPT TO NODC 
IF NODC =" * 
usE 
RELEASE ALL EXCEPT OP 
RETURN 
ENDIF 
LOCATE FOR NODOC = 
IF EOF 
& 20,2 SAY"Documento no encontrado!!!” 
7 
ACCEPT” Premsione RET p/cont...” to qq 
RELEASE NODC 
ERASE 
LOOP 
ENDIF 
ERASE 
STORE S(DATA,7,2) + S(DATA, 3,4) + S(DATA,1,2) TO DATE 
00,0 SAY "RALTEM 
8 3.10 SAY "AM CONTA CORRENTE 44º 
SAY "REGISTRO A ALTERAR” 
SAY memnnar 





(Nope) 








SAY “Historico * get NOME 
SAY "Data do muto = get DATT picture "4a/48/447 
"No do Docto * get NoDOC 
"Cred ou Debito D/C ” get SIT 
“valor ” get VALOR. 





REPLACE SALDO WITH O 
IP SIT = ("Ç7) 

REPLACE SALDO WITH SALDO + VALOR 

ELSE 

REPLACE SALDO WITH SALDO - VALOR 

ENDIF 

REPLACE DATA WITH S(DATT,7,2) + S(DATT,3) 
8 22,2 may "Mais alteracoes (S/N)” get Ri 
read 

ERASE 

enddo 

release all except OP 

ERASE 

return 


) + SIDATA1.2) 
Pp 








AsNDtyper 










































* Programa: DELEP.CMD 


* DELET - DELETA REGISTRO 
SET TALK OFF 

ERASE 

USE CONTA 

STORE" / / * TO DATr 

STORE * - TO RESP 

STORE O TO SALD 

DO WHILE !(RESP) <> "T” 

€ 0,0 SAY "DELETO 

€ 3/10 SAY "AR CONTA CORRENTE xx” 
€ 5.9 SAY "DELETACAO DE REGISTRO! 
87,9 SAY "menenacooo “ 
é 12,1 SAY "Digite O no. docto ou RET p/Fim” 
ACCEPT TO NODC 

IF NODC = * * 

USE 

RELEASE ALL EXCEPT OP 

RETURN 

ENDIF. 

LOCATE FOR NODOC = ! (NODC) 

IF EOF 

€& 20,2 SAY"Documento no encontrado 
? 

ACCEPT” Pressione RET p/cont.. 
RELEASE NoDC 

ERASE 











to qq 


STORE S(DATA,7,2) + S(DATA,3,4) + S(DATA,1,2) TO DATT 





€ 0,0 SAY "RDELE” 
€ 3,10 SAY "AA CONTA CORRENTE =x” 

€ 6,10 SAY "REGISTRO A DELETAR” 

e 7,10 SAY qi =.” 

€ 10,2 SAY "Historico ” get NOME 

& 11.2 SAY "pata do Mto - get DATT picture "44/ 
€ 12,2 say "No do Docto * get NODOC 

€ 13.2 say "Cred ou Debito D/C ” get SIT 

é 14,2 say "valor “ get VALOR 

CLEAR GETS 

€ 22,2 say “Confirma Delecao (S/N)” GET RESP 

READ 





1€ !CRESP) - 
delete 

& 22,2 say "Regitro sendo elimanado!!” 
PACK 

STORE O TO TIME 

IE TIME > 100 

STORE TIME + 1 TO TIME 

ENDIF 

ENDIF 

ERASE 

ensdo 

RELEASE ALL EXCEPT OP 

ERASE 

resurn 








ANtype lidat.cad 
* LIDAT - LISTA P/DATA 
SET TALK OFF 
ERASE 
USE CONTA 
STORE * / / * TO DAT 
STORE ” ” TO RESP 
STORE * / / * TODATT 
STORE O TO SALD 
80,0 SAY “LIDATS 
€ 3/11 BAY "ANCONTA CORRENTEMA” 
é 5,13 SAY "LISTA POR DATA” 
6,13 SAY Tai 
é 10.2 BAY "Digite a data ” GET DAT PICTURE "44/04/44 
READ 
STORE S(DAT.7.2) + S(DAT.3,4) + S(DAT,1,2) TO DATT 
SUM SALDO FOR DATA < DATT TO SALD 
LOCATE FOR DATA >= DATT 
IF EOF 
€ 18,2 SAY "Data nao encontrada!!” 
? 
ACCEPT * Pressione CRET> p/fim” TO QQ 
ERASE 
ENDDO 
USE 
RETURN 
ENDIF 
ERASE 
RELEASE DAT 
STORE * / / " TODATT 
STORE 14 TO MAX 
STORE O TO LIN 
0,0 SAY "EXTTO *** CONTA CORRENTE - EXTRATO aux" 
€ 2,0 SAY “DATA HISTORICO DOC SIT VALOR” 
e 3.0 say mcennna ER 
DO WHILE .NOT. EOF 
STORE S(DATA,7.2) + S(DATA,3,4) + S(DATA,1,2) TO DATT 
LIN+4,0 SAY DATT 














é LIN+4.20 SAY NODOC 








ICRO SISTEMAS 57, 


6 LINH4,28 SAY SIT 

€ LINH4,31 SAY VALOR 

STORE SALD + SALDO TO SALD 

€ LIN+5,10 SAY "RX SALDO =" 
O LIN+5.21 SAY SALD 

€ lint5,32 say “axar 

sKIP 

STORE LIN + 2 TO LIN 

XP LIN > MAX 

Cao sar” essenonna 






A:Vtype sys01.cnd 


ARHAR* = LE CHEQUE PRE DATADO 


ERASE 
SET TALK OFF 
STORE O TO OP 








6 22.1 SAY "Digite CRET> p/continuar! STORE * = TO NoM 
ACCEPT TO QQ STORE” / / “ TO DAT 
ERASE STORE * / / “ TODTA 
STORE O TO LIN STORE * / / * TO DDT 
80,0 SAY “EXTTO **% CONTA CORRENTE - EXTRATO STORE = TO NoDO 








8 2,0 SAY "DATA 
6 3,0 Sar "= 


STORE * * TO 81 
STORE O TO VALO 









































Loo? REMARK MRARR CONTA 
ENDIF REMARK reverte 
ENDDO REMARK Mm - softve 

e 210 sa” REMARK progamador: Wi11 
€ 22,0 SAY” REMARK 

STORE O TO TIME REMARK 

DO WHILE TIME < 100 REMARK 


STORE TIME + 1 TO TIME 
ENDDO 

€ 22,0 SAY "Digite <RET> p/continuar!!!” 
ACCEPT TO GR 

usE 

RELEASE ALL EXCEPT OP 

ERASE 

RETURN 


€ 13,15 say 
é 14,15 SAY 
é 18.3 say 
e 21,3 
accept to rp 

USE CONTA 

SELECT SECONDARY 

USE CHECPRE 

STORE DATE() TO DIA 

STORE S(DTA,7,2)*S(DTA, 3,4)+S (DTA,1,2) TO DDT 
DO WHILE .NOT.EOF 

LOCATE FOR DATA <- DDT 

IF DATA <= DDT 

STORE NOME TO NOM 

STORE DATA TO DAT 

STORE NODOC TO NODO 

STORE SIT TO SI 

STORE VALOR TO VALO 

DELETE 

PACK 

SELECT PRIMARY 

APPEND BLANK 

REPLACE NOME WITH NOM 

REPLACE DATA WITH DAT 

REPEACE NODOC WITH NODO 

REPLACE SIT WITH 51 

REPLACE VALOR WITH VALO 

REPLACE SALDO WITH SALDO-VALOR 





Digite os dados em caixa alta 1!” 


** PROGAMA "CONTA CORRENTE” *x* 
* LIST-SUB 
STORE O TO LIN 
€ 1,2 SAY "EXTRATO CONTA CORRENTE” 
127 BAY “EMISSÃO” 
1,35 SAY DATE () 
48 SAY “PAGINA” 
1,55 SAY PG USING 





2,0 sAr ENDIF 
2,40 say * ENDDO 
4,2 say “DATA” CLEAR 
4,11 SAY "HISTORICO" DO MENUG 





4,22 SAY "No.DOC” 
4,29 SAY "SIT" 
4,36 SAY “VALOR” 

46 SAY "SALDO" 
O sar 
40 SAY 
STORE 7 TO LIN 
RETURN 
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VENTURA - Quick Reference 
Mathew Holtz 

Editora Campus Ltda. 

238 páginas 


O VENTURA Publisher da Xerox tornou- 
se o mais popular programa de editoração 
para os computadores pessoais da IBM e 
compatíveis. Diante da complexidade do 
VENTURA e das exigências impostas pela 
atividade editorial, a necessidade de se ter 
um manual prático é cada vez mais 
urgente. 

Este livro tem como objetivo suprir tal 
necessidade, oferecendo respostas ime- 
diatas às perguntas que possam surgir no 
trabalho diário com o VENTURA e os as- 
suntos são colocados do modo mais cô- 
modo e fácil possível. Todos os menus, co- 
mandos e funções do VENTURA são apre- 
sentados e organizados em ordem alfabé- 
tica, dando a entrada ou comando do me- 
nu; mostrando como o comando é utiliza- 
do; fornecendo uma lista de opções dispo- 
níveis e notas complementares; fazendo 
referências a quaisquer funções relaciona- 
das ao mesmo. 

A obra abrange todos os recursos de 
editoração em computador, inclusive a 
combinação de gráficos e tabelas com tex- 
to e todos os aspectos de edição de Folhas 
de Estilo para especificação de margens, 
colunas, caracteres, tamanhos, e tipos de 
caracteres. 


SUPERCALC TOTAL 

João Mello da Silva/Wagner Eric Heibel 
Livros Técnicos e Científicos Editora Ltda. 
296 páginas 


A abordagem principal do livro é sobre 
a família eletrônica SuperCalc. É aborda- 
do o SupercCalc 3, agora com recursos grá- 
ficos e de gerência de dados não disponí- 
veis nas versões anteriores; o SuperCalc 
4 que possui muitos recursos de progra- 
mação e facilidades de leitura de arquivos 
gerados por outros softwares e uma intro- 
dução ao poderoso SuperCalc 5, que po- 
de ser executado em qualquer equipamen- 
to compatível com IBM/PC, XT, AT e PS/2 
com 512 K de memória. 

A obra está dividida em 10 capítulos da 
seguinte forma: Introdução; Iniciação ao 


SuperCalc 3; Lógica SuperCalc 3; Funções 
Implícitas SuperCalc 3; Comandos Super- 
Calc 3; Gráficos (Comando/View); Banco 
de Dados (Comando!/D); Maeros (Coman- 
do/X); SuperCalc 4; Introdução ao Super- 
Calc 5; Bibliografia. 

Com o SuperCalc 5 é possível a utiliza- 
ção da impressora a laser, o que permite 
a impressão com qualidade tipográfica. 

Dentre os vários exemplos de aplicação 
citados no livro podemos destacar: decla- 
ração do imposto de renda; controle de 
contas bancárias; análise e projeção de ba- 
lanços; cálculos e topografia; elaboração 
de gráficos; cálculo de rentabilidade de 
produtos. 


DESCOBRINDO A LINGUAGEM 
POSTSCRIPT 

David A. Holzgang 

Livros Técnicos e Científicos Editora Ltda. 
438 páginas 


Este livro é um guia para se entender e 
usar a linguagem de descrição de página 
PostScript. Contém uma profunda introdu- 
ção à linguagem PostScript, desde as ope- 
rações básicas até as técnicas para mani- 
pulação de texto e gráficos. É essencial pa- 
ra qualquer um que queira obter um co- 
nhecimento fundamental da linguagem 
por trás dos sofisticados programas de 
desktop publishing. 

Exercícios práticos e discussão 
combinam-se para tornar este livro mais 
do que apenas um simples guia de “como 
usar” o PostScript. O leitor obterá um co- 
nhecimento funcional do vocabulário e 
técnicas para a criação de uma série com- 
pleta de programas como exemplo para 
formatar e imprimir documentos. Ao mes- 
mo tempo, entenderá o PostScript de mo- 
do a poder aplicar o conhecimento a qual- 
quer projeto de programação 
personalizado. 

Dentre os tópicos apresentados no livro 
destacam-se: convenções estruturais do 
programa; definições e dicionários; opera- 
dores básicos de fonte e gráficos; técnicas 
para criação e modificação de fontes; ope- 
rações avançadas de cadeia e arquivo; téc- 
nicas gráficas avançadas, incluindo "áreas 
de recorte” e imagens de scanners. 
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LJPossuo o manual do compilador 
MSX-C em inglês, mas nele estão faltan- 
do duas páginas (o verso da folha 8e o 
verso da folha 14). Assim sendo, peço 
aos leitores que possuam o manual 
completo que me enviem xerox destas 
páginas. Solicito também que os usuá- 
rios de linguagem € no MSX (seja MSX- 
C, Aztec C ou BDS-C) entrem em conta- 
to comigo pois pretendo formar um nú- 
cleo de informações, dicas e funções C 
que possam ser compartilhadas por to- 
dos. Escrevam-me também todos os in- 
teressados em aprender a linguagem C. 
Responderei com prazer às dúvidas dos 
iniciantes. 

Carlos Alberto Angelo - Rua João Alves 
da Silva, 12A - Jardim Maria Dirce - 
Guarulhos - SP - 07170 


LlGostaria de saber se com o CP 
2008, que tem conector tipo encaixe de 
cartucho e que fornece os sinais neces- 
sários para ter acesso direto ao micro- 
computador, pode-se usar Disk Drive pa- 
ra disquetes 5 1/4" e 3 1/2". Também 
gostaria de me comunicar com progra- 
madores de jogos e programas na lin- 
guagem Basic. 

Henry Raphaely de Souza - R. Maria 
Medeiros Siemann, 199 - Itajaí - SC - 
88300 


Llvisando esclarecer dúvidas de 
usuários de microcomputadores das li- 
nhas PC, Apple e Exato-pro (CCE), venho 
colocar-me à disposição dos mesmos. 
Qualquer tipo de informação, sobre os 
ítens que se relacionam abaixo, poderá 
ser solicitada por correspondência. 

PCAT e xT 

Linguagem de Programação: dBase 
HI Plus e MBasic (Basic); Compilador: 
Clipper; Planilha de Cálculo: Lotus 123; 
Editores de Textos: Wordistar e Word; 
Aplicativos: Controle de Estoque, Contas 
a Pagar, Controle Bancário (contas- 
corrente), Mala-Direta. 

APPLE Il e EXATO-PRO (CCE) 

Linguagem de Programação: MBasic 
(Sistema Operacional CP/M), Basic (Sis- 
tema Operacional DOS), dBase II; Plani- 
lha de Cálculo: Supervisical; Editor de 
Texto: Wordstar; Aplicativos: Controle de 
Estoque, Mala Direta; Hardware: Asses- 
soria sobre Equipamentos, Acessórios 
para Incrementar seu Equipamento. 
Marcos Antonio Justo - R. Javorahu, 
153 -G. 04 - São Paulo - SP - 02732 
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LJTemos um MSX HOTBIT versão 1.1, 
contendo um monitor uma impressora 
Lady 80 e um drive DMX. Gostaríamos 
de saber quais os suprimentos necessá- 
rios para transformar nosso micro em 
Telex, se possível. 

Felipe Magalhães - CLQE 15, Bloco A, 
Loja 27 - Guará |l - Brasília - 71011 


U Sou usuário de MSX há cerca de 3 
anos, então agora surgiu-me a oferta de 
compra de um micro Amiga Commodo- 
re, mas antes de comprá-lo gostaria de 
saber suas características de compati- 
bilidade com outros commodores e com 
os micros da linha IBM PC. Gostaria tam- 
bém de saber a disponibilidade de Softs 
para o mesmo e quais os periféricos 
existentes. 

Giovane Maneiro - QNA 12C 1 - Tagua- 
tinga - DF - 72110 


(JSou possuidor de um MSX 1.1, 
HOTBITSHARP (1985) e tenho duas pre- 
tensões. Transformá-lo em MSX 2,0 e 
ampliar a configuração adquirindo im- 
pressora e drive. 

Infelizmente me acho isolado no in- 
terior de Minas Gerais, onde demoram 
a chegar informações. Com muito esfor- 
go aprendi Basic e rudimentos de lingua- 
gem de máquina o que me levou a ne- 
cessitar expandir minha configuração 
que é básica. Porém com a necessida- 
de de expandir surgiram dúvidas que, 
gostaria, fossem dirimidas. A saber: 

1-0 HotBit pode ser transformado 
em 2.0? Onde? É confiável e/ou 
recomendável? 

2 - Os periféricos citados, principal- 
mente drive (5 1/4” ou 3 1/2"7), existen- 
tes no mercado são compatíveis e con- 
fiáveis no que tange à qualidade? Onde 
encontrá-los? 

3 - Com a saída do HotBit do merca- 
do as previsões para o seu futuro são 
“negras” ou o padrão MSX que ele apre- 
senta é realmente compatível com os 
micros Gradiente e os internacionais, de 
tal modo que futuros lançamentos pe- 
riféricos e de software, além dos já exis- 
tentes não estarão fora do alcance de 
quem for possuidor de um 
MSX-HOTBIT? 

4 - As interfaces que digitalizam da- 
dos gravados em fitas cassetes comuns 
facilitam realmente a leitura “em qual- 
quer altura” ou são apenas mais uma 
das muitas picaretagens que infestam 
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nosso já deplorável mercado de 
informática? 

5-A tendência, se é que existe, é de 
utilização de drives 5 1/4" ou 3 1/29 

6 - Drives substituem Megaram ou 
não existe relacionamento de exclusão? 
Aristóteles Soares Benício - Rua do 
Bonfim, 104 - Diamantina - MG - 39100 


Tenho o jogo INDIANA JONES, pa- 
ra computadores da linha PC. O único 
problema nesse jogo, é que para você 
entrar no jogo, é necessário ter o ma- 
nual, pois ele faz perguntas referentes 
ao manual, sem o qual não existem pos- 
sibilidades de se jogar. Os leitores que 
possuem o manual, ou dicas para en- 
frentar esse problema, entrem em con- 
tato comigo. Aceito dicas e macetes de 
outros jogos para a linha PC. 

Marcelo Reis - R. Tenente Mário Barbe- 
do, 559 - Parque Edu Chaves - São Pau- 
lo-SP- 02233 


[Sou usuário de um CP 400 Color 
Il, e venho encontrando muitas dificul- 
dades para solucionar alguns adventu- 
res. E por isso que peço aos leitores que 
me ajudem a usufruir melhor destes ad- 
ventures em que venho encontrando 
problemas: no adventure Martian Crypt, 
qual a solução do enigma do marciano, 
e qual o verdadeiro objetivo do jogo? No 
adventure Seaquest, como faço para en- 
trar na casa de praia e o que fazer com 
o pirata? No adventure Vortex Factor, co- 
mo encontro os cartões para viajar no 
tempo? Peço, se possível, algumas dicas 
dos adventures SyzYGY e MAJOR ISTAR. 

Qualquer ajuda sobre os adventures 
citados será muito bem recebida. Tam- 
bém gostaria de trocar informações e 
correspondência com usuários do CP 
400. 
Luciano Ghisi Guimarães - R. Teodoto 
Tonon, 146 - Vila Mariana - Tubarão - SC 
- 88700 


DlUso muito Cobol no MSX, mas te- 
nho problemas com o uso dos coman- 
dos Erase e Blank Screen para limpar a 
tela, pois não funcionam. Já procurei li- 
vros explicativos sobre Cobol para o 
MSX e não encontrei, por isso peço aos 
leitores de MS que caso conheçam al- 
gum livro sobre Cobol no MSX me infor- 
mem seu nome e onde encontrá-lo. 
Daniel Romualdo - R. Cornélio Pires, 
117 fundos - São Vicente - SP - 11330 














(Tenho algumas dúvidas e gostaria 
que alguém pudesse me dar as informa- 
ções de que necessito: E 

1- Existe alguma lei no Brasil que au- 
torize a criação de um clube de soft's? 

2 - Vender ou trocar soft's importa- 
dos, sem autorização da empresa es- 
trangeira que possui os direitos autorais, 
é crime? 

3-Se for “legal” fundar um clube, co- 
mo devo proceder para registrá-lo? 

4 - Se não for “legal”, como podem 
existir tantos clubes que divulgam ven- 
das de soft's sem terem CG, direitos 
autorais e nem mesmo autorização da 
empresa estrangeira que tem direitos 
sobre a venda? 

5 - Onde conseguir um drive para o 
TK-95? E qual interface deverá ser utili- 
zada para o mesmo? 

Rodnei Marques - Caixa Postal 4075 - 
Boa Viagem - Recife - PE - 50000 








[Sou estudante de informática e te- 
nho interesse nas áreas de sistemas 
operacionais e compiladores. O compu- 
tador e o sistema operacional a que te- 
nho acesso são um PC-XT e o DOS 3.3. 
Preciso de informações técnicas (mapas 
de memória RAM e ROM e de I/0; lista- 
gens dia cádigo fonte do ROM-BIOS; pro- 
gramação dos controladores - inclusive 
os de vídeo; etc), mas só as encontro es- 
palhadas por vários livros, desorganiza- 
das e incompletas. Isto não me serve, 
portanto gostaria de saber sobre onde 
encontrá-las. 

Durante a leitura de alguns livros te- 
nho visto referências a estes manuais: 
“IBM Techical Reference Manual” e“lBM 
Disk Operating System Manual”. Pelo 
que entendi há uma série destes ma- 
nuais. Gostaria de obter uma lista deles 
e saber como adquiri-los. 

Gostaria, também, de saber se a In- 
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tel, a IBM e a Microsoft possuem filiais 
ou representantes aqui no Brasil que tra- 
tem destes assuntos e os endereços 
das mesmas. Caso não possuam gosta- 
ria de saber o endereço de suas matri- 
zes, que suponho sejam nos EUA. 


Admiro muito a Micro Sistemas e 
achei muito interessante a matéria “A 


computação gráfica na Escola de Belas 
Artes”. 

Marcélio Kohn - Av. Alberto Pasqualini, 
170 - Bairro Jardim Sabará - Porto Ale- 
gre-RS- 91300 


[Gostaria de saber, se possível, on- 
de encontrar o programa “Pronto-Dos”, 
o sistema operacional para MSX em car- 
tucho analisado pela revista Micro 
Sistemas. 

Marcelo Mendonça Jardim - R. Garibal- 
di, 411/84 - Ribeirão Preto - SP - 14020 
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[Nós usuários de micros diversos, 
além da falta de interesse dos fabrican- 
tes após a venda do seu produto fica- 
mos desanimados de prosseguir com 
um micro por causa das soft-houses de- 
sonestos que, recebendo adiantado por 
um produto, vêm aplicando golpes. 

Recebendo de um amigo um catálo- 
go atualizado de programas e preços da 
Taco Software, resolvi pedir alguns pro- 
gramas. Enviei um cheque e, após dias 
sem nada receber, resolvi tentar conta- 
to coma firma e fui informado de que na- 
quela época a firma também não des- 
contara o cheque. Perguntei se pelo me- 
nos poderia devolver o cheque, que não 
foi devolvido. 

Como nada se resolvesse, tentei ou- 
tra firma, Consertec & Master Informá- 
tica e enviei, junto ao pedido, um cheque 
ouro com o preço dado pela empresa e 
até a presente data, já se passaram mais 
90 dias, ela nada fez a não ser descon- 
tar o cheque. 

Firmas desse tipo causam transtor- 
nos aos usuários de micros, trazendo in- 
segurança pará'fazer novos pedidos a 
outras softhouses já que não se sabe 
qual vai agir corretamente. 

Osmar E. da Silva - R. Adélio Maciel, 32 
- Patos de Minas - MG - 38700 





Úlvenho fazer uma reclamação com 
relação a um Clube para Appte, o Micro 
House Informática. Fui sócia deste Clu- 
be por mais de um ano, sem problemas 
maiores a não ser o atraso das remes- 
sas. Mas acontece que em novembro 
próximo passado enviei um pedido fora 
do prazo normal. Isto já acontecera an- 
teriormente, e era cobrada uma taxa de 
atualização de preços, o que é razoável 
num país com a nossa inflação, e o pe- 
dido despachado sem problemas. Com 
este pedido de novembro esperava que 
acontecesse o mesmo, porém não foi 
assim. 

Foi-me enviada uma correspondên- 
cia dia 27/12 (um mês após o pedido ter 
sido feito) cobrando uma sobretaxa em 
BTNF, do dia 27/12, o que acarretaria um 
acréscimo de aproximadamente 90% 
ao meu pedido. Tive que pagar em BTNF 
o atraso tendo prejuízo, uma vez que ha- 
veria uma defasagem em BTNF até o dia 
em que recebessem meu cheque. Enviei 
a quantia dia 3/1/90, e até hoje não re- 
cebi nada. 

Dia 22/1 telefonei perguntando o por- 
quê da demora, e a pessoa que me aten- 
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deu disse que o pedido sairia no dia se- 
guinte por Sedex a cobrar. Dia 23 rece- 
bi um aviso do Correio para retirada de 
um Sedex a cobrar, pensei que fosse o 
tão esperado pedido, mas era um catá- 
logo do clube, pelo qual tive que pagar 
NCz$ 103,00, sendo que não havia pa- 
go a trimestralidade, o que significava 
que não desejava mais fazer parte do 
clube. Como não sabia do que se trata- 
va, paguei a quantia e decepcionei-me 
com o conteúdo, que ainda não era o pe- 
dido do mês de novembro. 

Dia 29/1 fiz outra ligação para o Mi- 
cro House, e a mesma pessoa que me 
havia atendido uma semana antes, ga- 
rantindo que meu pedido sairia dia 23/1, 
disse que o pedido não fora mandado 
porque ninguém da Micro House fora ao 
Correio naquela semana, e que seria 
mandado “lá para quinta ou sexta feira”. 

Em resumo: fiz um pedido em no- 
vembro, paguei uma sobretaxa por ele, 
paguei um catálogo que não pedi e não 
vou usar, paguei várias ligações interur- 
banas e fui tratada com extrema displi- 
ciência pelo responsável pelos pedidos 
feitos ao Micro House Informática. Se- 
rá isto correto? 

Silvia Vergueiro Porto - Al. Barros, 
570/21 - São Paulo - SP - 01232 


[Sou um amante da linha MSX, mas 
tenho um problema: Comprei um com- 
putador Expert Plus. Pedi um teste do 
mesmo mas não foi aceito sob alegação 
de vir “lacrado” de fábrica. Ao receber o 
mesmo, os números da nota, caixa, CPU, 
teclado e garantia eram diferentes. 

O computador foi trocado por outro. 
Ao receber o mesmo, este não funcio- 
nou. Pedi nova troca ao local onde com- 
prei, a York Cine Foto Som e não fui aten- 
dido sob a alegação de ser um proble- 
ma de assistência técnica. 

Levei ao Centro Técnico Eletrônica 
Japonês Ltda e me foi perguntado se es- 
tava na garantia. Diante da minha res- 
posta positiva, o Expert não foi aceito 
por estar na garantia. 

Levei-o à Eletrônica Hang Com. de Pe- 
ças Ltda, o micro está lá há 1 mês, e as 
desculpas são diversas, “não recebe- 
mos peças, a fábrica não tem peças”. 

Acho que essas firmas deveriam ter 
mais consideração para com os clintes, 
por isso aqui fica o meu protesto. 
Djeferson D. da Silva - R. Otto Boehn, 
4/301 - Joinville - SC - 89200 


DEFENDA-SE 


ÚlLendo MS 94, percebi que nem 
mesmo a própria Microdigital conhece 
seus equipamentos pois não é só o nos- 
so amigo Rui que tem esse tipo de pro- 
blema. Se quiserem um exemplo, vejam 
o jogo Batmam | e Marth Day Il. Podem 
pegar qualquer TK 90X “são” e vocês ve- 
rão que nem com “reza brava” esses pro- 
gramas rodarão. Já no TK 95, eles rodam 
sem problemas. Gostaria que a Microdi- 
gital “estudasse” melhor seus projetos 
para não dizer qualquer coisa para jus- 
tificar seus erros. 

Marcos Alexandre M. Sandi - R. Manoel 
dos Santos Quialheiro, 1/111 - Jardim 
Pagani - Bauru - SP - 17025 


[Há um mês eu e um amigo fizemos 
um pedido para a linha Commodore 
Amiga, por telefone, à Game of Time. Fa- 
lamos com o Sr. Francisco, que nos ga- 
rantiu que em três dias receberíamos o 
nosso pedido. Infelizmente, para nós, fez 
um mês no dia 30 de junho, portanto 
trinta dias, e não recebemos o pedido. 
Inclusive, nesse meio tempo, gastamos 
inúmeros interurbanos conversando 
com o Sr. Francisco, que sempre nos ar- 
ranja desculpas. 

Espero que a Game of Time honre o 
seu nome, respeitando os compromis- 
sos que assume. 

Valter Vilar Júnior - R. Rubem Berta, 
339/203 - Salvador - BA - 41820 


Normalmente faço pedidos de 
software às empresas que publicam 
anúncios na MS e sempre fui bem aten- 
dido. Entretanto quero fazer uma recla- 
mação contra a empresa Drawline pois 
enviei meu pedido em outubro/89 jun- 
to com o cheque Banespa 474803 o 
qual já foi compensado e até o momen- 
to não me remeteram a encomenda (1 
caixa de disquetes) conforme prometi- 
do em seu anúncio. Embora já tenha fei- 
to reclamação junto àquela firma por te- 
lefone e por carta, não recebi até agora 
nenhuma resposta. 


Como consumidor estou perdendo a 
confiança tanto em relação a essa firma 
quanto a outras, pois se não atendem a 
um pequeno pedido, como procederão 
em relação a pedidos maiores? Já perdi 
a esperança de receber a encomenda 
que solicitei ou o valor que remeti. 
José Carlos Ciapina - R. Jacob Stabile, 
15 - Birigui - SP - 16200 





SUGESTÕES 


DJEu, como várias pessoas espalha- 
das pelo Brasil que possuem um Expert 
ou outros tipos de micro, adoram Adven- 
tures. Este é o meu caso, mas estou in- 
dignado por ver como as revistas não fa- 
lam, ou falam muito pouco dos 
Adventures. j 

Queria que os programadores de MS 
fizessem o máximo para colocar mais 
Adventures, explicando-os e, se possível, 
em BASIC. Eu me amarro nesta revista 
e tenho a coleção inteira encadernada. 
Kelunga Silva Sales - Rio de Janeiro - RJ 


Sou proprietário de um CP 2005 e 
gostaria de dar uma sugestão à Micro 
Sistemas: a revista deveria fazer um ca- 
derno de jogos e programas em BASIC 
(puro) ou PASCAL, e também poderia de- 
dicar uma página especial aos micros 
pequenos. Isto faria com que a Micro 
Sistemas fosse mais comprada pelos 
utilitários de microcomputadores. 
Henry Raphaely de Souza - Itajaí - SC 


Cuusr Do UsuÁriO 


Dlnicialmente gostaria de elogiar a 
revista pelo excelente trabalho que de- 
senvolve e em especial ao Renato Degio- 
vani pelos ótimos programas criados e 
pelo constante apoio dado ao programa- 
dor brasileiro. 

Aproveitando a oportunidade gosta- 

ria de avisar os aficcionados em MSX e 
PC (futuramente Amiga) que estamos 
lançando um novo clube, com grande 
acervo de programas do Brasil e do ex- 
terior. Quem desejar maiores informa- 
ções escreva para: 
Martha Novo de Oliveira Rosinha e Cris- 
tiano André da Costa - Rua Anchieta, 
571 - Bairro Centro - Pelotas - RS - 
96015 


DEstou formando um Clube de 
Usuários para a linha TRS 80. Os interes- 
sados favor escrever para: 

Angelo Rial Y Rial Junior - Av. Afonso Pe- 
na, 1781/2102 - Bairro Funcionários - 
Belo Horizonte - MG - 30130 








Mensagem DE ERRO 


CJNo artigo “O caminho mais curto pa- 
ra subdiretórios” publicado na MS 93, 
pg.24, o final da listagem do programa 
CATALOG.BAS foi omitido. Seguem abai- 
xo as linhas ausentes: 
1590 NEXT B:PO=PO+PS 
1600 LOCATE 10,3: PRINT INT(PO);“% 
do trabalho realizado”. 
NEXT À 
1610 FOR A=1 TO N:LSET 
NOMES=NS$(A):LSET 
GALHO$=GS(A):LSET 
COMANDOS=CS(A): 
1,A+1:NEXT 
1620 LOCATE 10,3:COLOR 15,2:PRINT 
“OK. Arquivo ordenado 
alfabeticamente” 
1630 GOSUB 1430:GOTO 210 


PUT 





Envie sua correspondência para ATI- 
Análise, Teleprocessamento e Informá- 
tica Editora S/A, Rua Washington Luiz, 
9/Gr. 403 - Rio de Janeiro - RJ - CEP 
20230 - Seção Cartas - Redação Micro 
Sistemas 





MAIS UM LANÇAMENTO 
BUCCANEER SOFTWARE 


O QUE É ISSO? 

Este é um ponto de venda dos produtos ge- 
rados pelo programa BUC-ASTRAL montado 
pela BUCCANEER SOFTWARE para um autô- 
nomo-em uma galeria de Teresópolis, cidade 
sede da empresa. Sucesso absolutom 





BUC-ASTRAL 





FINALMENTE UM PROGRAMA PROFISSIONAL EM FAZER DINHEIRO 





COM SEU MSX! UM INTEGRADO DE MÚLTIPLAS FUNÇÕES DE USO 





COMERCIAL E DOMÉSTICO! SEM DÚVIDA UM DOS 5 MELHORES 





PROGRAMAS JÁ FEITOS PARA A LINHA MSX!! 





PARA QUE SERVE ESTE PROGRAMA? 

Se você não possui interesse ou não tem cu- 
riosidade pá Astrologia, Biorritmo ou Nume- 
rologia, o BUCASTRAL será “apenas” um ins- 
trumento de fazer dinheiro. Para comerciali- 
zar as 6 páginas impressas com gráficos e in- 
terpretações do Mapa Astral que ele realiza 
ou, diversificando as opções de venda, as pá- 
ginas de Biorritmo e análises numerológicas, 
não se faz necessário que se entenda destas 
matérias. 


PRECISO TER UMA IMPRESSORA? 

Para vender os produtos do programa é lógi- 
co que sim. Todavia, para o uso doméstico ela 
não é necessária, pois tudo que se pode ter 
impresso é visto igualmente no vídeo. E por 
falar em uso doméstico, temos a informar que 
o BUC-ASTRAL (inspirado no livro CATÁLOGO 
ASTRAL, do mesmo autor do programa) é um 
excelente banco de dados pessoais. Operar 
o BUC-ASTRAL é como dirigir um “CADILAC”, 
em termos de luxo, conforto e facilidade de 
manuseio! Tudo automático 


QUAIS OS EQUIPAMENTOS E PERIFÉRICOS 
QUE NECESSITO TER? 

O BUC-ASTRAL “rodará” em um HOT-BIT ou 
em um EXPERT 1.1 que tenha conectado à 


Si um acionador de discos de 5 1/4' de face 
dupla. Opcionalmente, mas desejável, uma 
impressora matricial com capacidade gráfi- 
ca nos padrões EPSON ou IBM/PROPRINTER 
(a maioria do mercado). Caso você tenha pro- 
blemas com acentuações da língua portu- 
guêsa peça uma versão do BUC-ASTRAL não 
acentuada. 


ACOMPANHA MANUAL? 

Escrito em colaboração com o autor do pro- 
grama, que, como já afirmamos, é autor de 
livros... 


QUANTO CUSTA? DEVE SER CARO... 

Se pensarmos nos amigos e conhecidos os 
quais poderemos vender os produtos do pro- 
grama, o mesmo se pagará em poucos dias 
e, isto, para não falarmos no uso verdadeira: 
mente comercial do programa. Seu custo é 
de 90 BTN'S eo programa tem garantia de 6 
meses. Não espere encontrar cópias ilegais... 
Severa vigilância será exercida... 


Envie cheque nominal a: 
ZOCH!O REPRESENTAÇÕES LTDA. 
Caixa postal 1793 

CEP 20001 - Rio de Janeiro-RJ 
Telefone: (021)262-6306 











Cursos e Seminários 


*O impacto das medidas econômicas 
do novo governo no setor de informática 
levou os organizadores e expositores da 
Tecninfo 90 — Congresso de Informática 
e Exposição de Bens e Serviços — a trans- 
ferir o evento que tinha data marcada pa- 
ra 4a 8 de junho, em Joinville (SC). A nova 
data é 24 a 27 de setembro próximo. O 
adiamento visa beneficiar participantes, 
expositores, congressistas e patrocinado- 
res, que terão mais tempo para se ajustar 
à nova realidade do mercado. 

Os expositores que já haviam reserva- 
do estandes permanecem conforme o nú- 
mero e metragem descritos no contrato de 
locação. A parcela paga fica como crédi- 
toe o restande deverá ser pago parcelada- 
mente. Os temas centrais do congresso — 
metodologias, banco de dados, microinfor- 
mática, aplicações, administração e gerên- 
cia, e tendências — permanecem, porém, 
adaptados à situação atual da economia 
do País. 

A tecninfo 90, promovida pela Suce- 
su/SC, se constituirá numa oportunidade 
de mostra de equipamentos e serviços du- 
rante o segundo semestre na região Sul, 
justamente num momento em que todos 
precisam reativar seus negócios e o gover- 
no exige das empresas de maneira geral 
mais competitividade, com melhoria de 
qualidade e oferta de melhores preços. E 
a informática é um instrumento indispen- 
sável para alcançar estes objetivos. 


*A Servimec está oferecendo aos inte- 
ressados cursos e seminários a se realiza- 
rem em agosto deste ano. 


CURSOS: 

MS-Word 5.0; Gerador de Gráficos-MS- 
chart; Framework III Básico; Wordstar; Car- 
ta Certa Ill; Samba 2.0; Lotus 1-2-3 Bási- 
co; MS Word 4.0; Supercalc 4; Programan- 
do em Linguagem Assembly; Introdução à 
Microinformática; MS DOS Operação Avan- 
çada; dBase IV Interativo; dBase Ill Plus In- 
terativo; MS DOS Operação Básica; Super- 
calc 5 Básico; Supercalc 5 Avançado; Lo- 
tus 1-2-3 Avançado; Programando em Tur- 
bo Pascal 40; Clipper Básico; Joiner- 
Compilador do dBase; Front Runner Inte- 
rativo; Front Runner Programado; VP Plan- 
ner Plus; Wordperfect 5.0; Wordstar 2000 
Plus e Wordstar 4.2 Profissional. 


SEMINÁRIOS: 

Administração Eficaz da Produção do 
CPD — Técnicas e Procedimentos; MVS- 
JCL e Utilitários; Quality Assurance; Redes 
de Teleprocessamento: Conceitos e Apli- 
cações; Plano Diretor de Informática; Iden- 
tificação de Problemas — MSVIXA (Análi- 
se de Dump/ Debugging MVS); Ligação 
Micro-Mainframe: Aspectos Gerenciais e 
Técnicas; Técnicas de Programação; CICS- 
VS para Analistas de Sistemas e Programa- 
dores; O Impacto das Ferramentas Case no 
Desenvolvimento do Software; MVS Estru- 
tura e Lógica. 

Informações pelo tel (011) 572-6353 


“A Digital está oferecendo, para o mês 
de setembro deste ano os seguintes semi- 
nários e cursos na área de Informática: 


SEMINÁRIOS 

Introdução ao VMS; Conceitos de Re- 
des de Comunicação de Dados; Conceitos 
Básicos de Dados. 


CURSOS: 

VAX/VMX Utilitários e Comandos; 
VAXIVMKX Utilitários e Comandos Avança- 
dos; VAX/VMS Arquitetura do Sistema; 
VAX/VMKX Utilização de Técnicas Avança- 
das;VAX/VMX Gerência do Sistema |; Aná- 
lise de Desempenho; VAX/VMS Estrutura 
Interna | e Il; VAX Rdb Projeto Físico e 
Administração. 

Informações pelo tel (021) 297-1122 Ra- 
mal 254 


*“SOBRACON - Eventos Dez Anos”. es- 
ta é a denominação da série de Simpósios, 
Seminários, Jornadas e Exposições que a 
SOBRACON (Sociedade Brasileira de Co- 
mando Numérico e Automatização Indus- 
trial) estará realizando no mês de setem- 
bro em São Paulo, nas instalações do Hil- 
ton Hotel. 

No dia 10 daquele mês, iniciando as ati- 
idades, serão promovidas “Sessões Tuto- 
u seja, palestras abordando ítens 
básicos dos vários setores que abrangem 
a Automatização Industrial no Brasil. O dia 
11 será destinado ao “Segundo Simpósio 
sobre Controladores Lógicos Programá- 
veis” e ao “Primeiro Seminário sobre Re- 
des de Comunicação Industrial”. Nos dias 
11 e 12 acontecerá o “Décimo Seminário 
de Comando Numérico no Brasil”, já tradi- 
cional na agenda dos profissionais da área. 
O dia 12 abrigará o “Primeiro Seminário so- 
bre Manutenção de Máquinas e Equipa- 
mentos no Setor da Automatização Indus- 
trial” e o “Primeiro Seminário sobre Téc- 
nicas de Planejamento e Controle da Pro- 
dução”. O dia 13 de setembro será dirigi- 
do à realização da “Sexta Jornada Interna- 
cional de Automatização Industrial”, 

Informações pelos tels: (011) 255-2967 
e 258-3320. 













da temporada 





temporada é uma assinatura anual da sua revista 
preferida de informática, 





Conheça o melhor pacote 


É isso mesmo. O mais económico pacote da 





econômico 








Nome: 





Endereço: 








Cop: Cidade: 





UE: 











Veja só se não é uma vantagem e tanto: você paga 
jo e leva 12 edições. Uma pechincha de dar água na 

ca. 

E não é só isso não. Atente para o fato de que 
MICRO SISTEMAS é à primeira revista brasileira de 
microcomputadores. São oito anos de liderança no 
mercado e muita história para contar. 

nossa maior tradição continua sendo nosso carro 
chefe: nas páginas da MICRO SISTEMAS você 
encontra sempre uma análise do mercado de 
informática. Além, é claro, dos melhores programas e 
rotinas publicados em revistas. 

Não fique aí parado. Pegue a sua calculadora e 
faça as contas. Depois é só preencher o cupom ao 
lado e entrar pará o time dos usuários bem 
informados. 











Equipamento: 





Profissão: 















Ass: 








Estou enviando o cheque nº 
no valor de Cr$ 2300.00 no: 
referente a uma assinatura amu 
de MICRO SISTEMAS. 


ATI 














de Janei 





| à ATI EDITORA LTDA, 
(12 números) 








Análise, far gt a e 

Informática Editora S.A. 

Rua Washington Luiz, 9 - 
RJ - Cep: 20.230 
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AQUI VOCÊ PAGA SEU PEDIDO 
SOMENTE NO RECEBIMENTO! 






NÃO PERCA TEMPO PAGANDO 
ANTECIPADO! 
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Nem tudo é verdade 


mbora seja inegável que nós possu- 

ímos uma forte cultura autoritária, vi- 

sível em muitos aspectos da nossa 

vida cotidiana, quer me parecer que 
não é essa a pista para descobrir a origem 
da política brasileira para a informática. Ao 
contrário do que é insistentemente veicu- 
lado por alguns órgãos da imprensa que cir- 
culam entre nós e repetido inadvertida- 
mente por tantas pessoas, na verdade, o 
nascimento da indústria brasileira de infor- 
mática (não estou me referincio a empresas: 
multinacionais de montagem) e de uma po- 
lítica para o setor, foi precedido por um am- 
plo debate travado em congressos, semi- 
nários e quejandos, e que envolveu setores 
acadêmicos, empresariais, políticos, milita- 
res e outros da sociedade brasileira, Des- 
ses debates e da experiência acumulada até 
a época resultou a constatação de que in- 
gressamos em uma era na qual a ciência e 
o conhecimento (e não tanto o capital) 
constituem as molas propulsoras do desen- 
volvimento e a conclusão de que a decisão 
de implantar uma indústria de informática 
realmente nacional era, essencialmente, 
uma decisão política, uma vez que existia 
capacidade de fabricar equipamentos de 
PED no Brasil. 

Dentro desse entendimento, a reserva 
de mercado serve para permitir gerar e de- 
senvolver no país a necessária competên- 
cia para a produção de códigos e meios: 
computacionais que possibilitarão à socie- 
dade brasileira inserir-se na revolução tec- 
nológica do final do século como produtora 
dos códigos e meios que utiliza, e não ape- 
nas como consumidora de tecnologia de- 
senvolvida alhures, à revelia de suas neces- 
sidades. Deve-se observar que essa decisão 
não foi ideológica. Também não foi tomada 
contra os interesses de qualquer parceiro co- 
mercial do Brasil, embora seja visível que 
dela resulta uma deterioração na posição 
dos nossos parceiros que contavam com o 
mercado brasileiro para melhorar sua po- 
sição internacional. O fato é importante, 
sem dúvida, mas de importância relativa 
para nós. A política brasileira de informática 
constitui um ato de soberania e abdicar dela 
apenas porque o interesse de algum par- 
ceiro comercial foi contrariado nos deixa- 
ria em uma posição delicada, já que a 
mesma lógica obrigaria a abrir mão de qu- 
alquer ato soberano, no futuro, pela mesma 
razão. Tanto os debates travados quanto o 
processo de decisão estão bem documen- 
tados na imprensa, em publicações espe- 
cializadas, em anais de congressos, semi- 
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nários, encontros e outros. Não parece ser 
difícil recuperar esse passado recente. As- 
sim, não pode deixar de ser surpreendente 
ver apresentadas, a pretexto de prestar es- 
clarecimentos, extensas reportagens a res- 
peito da questão da informática entre nós, 
que ignoram tudo a respeito do histórico 
da questão ou que apresentam uma 
versão caricata do que é a informática bra- 
sileira e de como se originou. Na verdade, 
sobre o propósito real desses trabalhos só 
é possível especular. 

Naturalmente, o caminho escolhido 
não é o único possível. Poderíamos es- 
colher ser consumidores de uma tecnolo- 
gia no estado da arte, a qual seria trocada 
por produtos primários; poderiamos es- 
colher ser uma especie de entreposto co- 
mercial, onde seriam montados, para ex- 
portação, componentes oriundos de 
diversos quadrantes, o que deixaria (em 
tese, pelo menos) ao nosso alcance, algo 
próximo ao estado da arte. O caminho es- 
colhido, no entanto, contempla as espe- 
cificidades da sociedade brasileira, a visão 
que ela possui de si mesma e o destino 
que almeja. Não se trata de rejeitar, em 
princípio, qualquer das vias mencionadas; 
é possível até aceitar, para fins de argu- 
mentação, que estas soluções funcionem 
bem em alguns países, digamos: Chile, 
Bolívia, Hong Kong, etc. Não é difícil com- 
preender, porém, que a realidade brasileira 
é completamente diferente da realidade 
destes países - o Brasil possui um imenso 
mercado interno, uma industria bastante 
diversificada e uma economia também di- 
versificada, justamente o oposto do que 
ocorre nos países que nos são apresen- 
tados como modelo. Esses paises pos- 
suem reduzida população, indústria de pe- 
queno porte ou concentrada em alguns 
setores e um cardápio econômico base- 
ado em dois ou três produtos primários. 
Também é difícil imaginar um país de oito 
milhões e meio de quilômetros quadra- 
dos e população de cento e cinquenta mi- 
lhões de pessoas traçando para si um des- 
tino de plataforma de exportação. Na 
verdade, a consulta aos anais dos últimos 
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congressos brasileiros de PD deixa claro que 
países que possuem similaridade conosco 
adotaram políticas de informática similares 
à brasileira. Também não consta existir qu- 
alquer indício que mostre que a situação do 
usuário ou do técnico de PD sofra alterações 
para melhor com a instalação de multina- 
cionais de microinfonrmática na Brasil; a si- 
tuação do técnico (social, educacional, 
oportunidades de emprego e de desenvol 
vimento) em países que importam tecnolo- 
gia, já foi esmiuçada suficientemente por 
diversos trabalhos apresentados em con- 
gressos e não parece necessário insistir 
nesse ponto. 

Quanto à provável situação do usuário 
em um tal ambiente, é possível inferi-la exa- 
minando, por exemplo, as indústrias de au- 
tomóveis e motocicletas aqui instaladas 
(para ficar com apenas dois dentre os inú- 
meros exemplos disponíveis): nossos car- 
ros e motos são de boa qualidade, seguros, 
atualizados e acessíveis à população? A res- 
posta será a mesma para a hipotética in- 
dústria multinacional de microinformática. 
Algo está errado? Certamente. A inexistên- 
cia de um projeto nacional, um ambiente 
de recessão que se arrasta por dez anos, o 
uso dos padrões da superpotência como re- 
ferência... Na verdade, não existe solução 
individual para a informática, essa questão 
insere-se no contexto nacional e não pode 
ser examinada independentemente de tudo 
o mais, como se seu universo não fosse afe- 
tado pelo que ocorre ao redor. A solução 
de abrir o mercado “as nações amigas" é 
mais uma dessas soluções a nivel mágico 
que nos são empurradas goela abaixo e aca- 
bam virando verdade em função da quan- 
tidade de vezes que são repetidas. Anos 
atrás, fato semelhante ocorreu com a in- 
dústria farmacêutica. Hoje importamos de 
Cuba vacinas para meningite. Os paises de- 
senvolvidos, em nível sanitário completa- 
mente distinto do nosso e com seus apa- 
ratos de pesquisa voltados para a sua 
realidade (e não a nossa) não se interessam 
em fabricá-las e nós perdemos a capacidade 
de fazê-lo. Apenas consumimos o que, a seu 
critério, nos vendem. 





ROBERTO ANDRADE FERNANDES é analista de sistemas, 
fez mestrado em Geodésia na UFPR. Programa em Fortran, 


Entre aplicativos e games 


fique com os dois na 
ECTRON 











A ECTRON coloca à sua disposição, completa variedade de 





programas, incluindo games e aplicativos. 


O que a ECTRON quer é preencher seu tempo e todo o espaço de 
seu MSX, tanto nas horas de trabalho, como de lazer. 


SOFTWARE 

* DBase ferramenta profissional para manipulação de banco de dados 
* SuperCalc: a mais famosa planilha de cálculos (ambos com suporte 
técnico e reposição de versão) 

PERIFÉRICOS 

* Drive para MSX 5 1/4 e 3 1/2 e Vídeo Station e Interface para Drive 

* Cartão de 80 colunas + Modem e Monitores de video 

jJocos 

Temos a coleção completa, jogos para DDPlus e Plus e uma infinidade 
de aplicativos. 

FITAS DE VÍDEO 

Na ECTRON você encontra o último lançamento “MPO” em video-cassete 
“Curso de Basic MSX” Acompanha livro “Dominando o MSX” 


LANÇAMENTOS 

TRANSPOSER, da LOGO SOFT, o programa que converte telas entre 

os diversos editores gráficos existentes, permitindo. aproveitar, ao máximo, 
as potencialidades de cada um. 


ER eia 


ECTRON ELETRÔNICA LTDA. 
Rua Dr. César, 131 - Metrô Santana - São Paulo-SP 
Tel.: (011) 290-7266 





Perdido num mar de opções? 
- "Somos a solução, 


Dj D) 

Drives: 3 1/Z.e 5 1/4 

Mega Ram Game 

Mega Ram Disk 256/512 
e 768 Kbytes 

Modem de comunicação 

Expansór: de Slots 

Cartas 80-colunas ! | 

Kip de conversão para 2.0 Ea 

fit de regressão Expert Plus 


NEMESIS j 
Top Cad 

Page Maker E 
Clip-Art : 
Hello 
































MSX Post Maker 


SALZANI 
Superstick 
Light-Pen (lançamento) 


HARDWARE 
Impressoras 
Monitores 
Mouse 
Interface, etc. 





: w 

Rs GAME OF TIME I 
SOFTWARE Av. Jabaquara, 1598 - sala 8 é e 4 
“Programas para MSX normal (ao lado do Metrô Saúde) - x 


CEP 04046 - São Paulo-SP: 


“+ Programas para Plus e DD Has ; Fone; (011)5812739 


Programas para: 2.0 E a 
-Programas para: Mega Ram: “PLACE TECH E 
; Rua Domingos de Morai: Fa e 












